Задача на сортировку методом обмена Опции

[Nikeas]

Массив размером MxN (M,N<=10) заполняется целыми числами из входного текстового файла. Исходный массив распечатывается. Строку, где расположен максимальный элемент массива, упорядочить по убыванию методом обмена. Переделанный массив распечатать.

Никак не могу упорядочить, кучу разных вариантов перепробовал - все равно не работает... Помогите, пожалуйста, исправить ошибки.
 Sort.PAS ( 1.26 килобайт ) Кол-во скачиваний: 501

[volvo]

Свой код:

begin
B[i]:=A[Imax,j];
for i:=1 to M do
for j:=M downto i+1 do
if B[i] < B[i+1] then begin
T:=B[i];
B[i]:=B[i+1];
B[i+1]:=T
end
end;

Меняешь на:

  begin
    for i:=1 to M do
      for j:=M downto i+1 do
        if A[imax, j] < A[imax, j-1] then begin
          T:=A[imax, j]; A[imax, j]:=A[imax, j-1]; A[imax, j-1]:=T
        end
  end;

, и при выводе данных в файл-результат:

for i:=1 to M do
  write(Fout,A[imax, i]:2);

В остальном все работает...