program prog
integer m,n,i,j,c
      real A,B,x,y,max
      dimension A(9,9),B(9,9), H(9)
      ! ввод размера матрицы
      print*, 'vvedite razmer i'
      read*, i
      print*, 'vvedite razmer j'
      read*, j
      !ввод элементов
      do m=1,i
       do n=1,j
          print*, 'vvedite' , m,'X',n
          read*, A(m,n)
        enddo
      enddo
      ! печать матрицы
      do m=1,i
      print*, (A(m,n),n=1,j)
      enddo
         print*, '_________________________________________________'
         print*, A(2,2)
         print*, '_________________________________________________'
      !поиск максимальных элементов
       do n=1,i
       max=A(n,1)
         do m=1,j
          if(A(m,n)>max)then
          max=A(m,n)!максимальный элемент  N столбца
          endif
          H(n)=max !передаю макс элементы в массив
         enddo
       enddo
      print*, H !печать массива
      print*, '_________________________________________________'
      c=0
      max=H(1)
       do m=1,8
       c=m+1
        if(H(m)<H(m+1))then !сортирую массив в порядке убывания
        x=H(m)
        H(m)=H(m+1)
        H(m+1)=x
        print*, m,'perestanovka zavershena'
        !print*, A(:,c)
        print*, '_________________________________________________'
        B(:,m)=A(:,c)
        else
        B(:,m)=A(:,m)
        endif
       enddo
       print*, H !печать массива
       print*, '_________________________________________________'
        !do n=1,9  !при условии перестановки местами элементов
        ! массива присваиваю столбец N матрицы А метрицt B на нужное место
        !B(m,n)=A(c,n)
         !enddo
         !else
         !do n=1,9  !при условии  НЕ перестановки
        ! ц N матрицы А метрицt B на нужное место
       ! B(m,n)=A(m,n)
        !enddo
        !endif
       !enddo
     do m=1,i
      print*, (B(m,n),n=1,j)
      enddo
         print*, '_________________________________________________'
      end