Переставить строки по убыванию значений максимальных элементов строк

{Для матрицы Т(m, n), 1<(m, n)<10, вычислить сумму всех положительных элементов.
Переставить строки по убыванию значений максимальных элементов строк.}
program masstwo;
uses crt;
//====================Переменные========================================
var
 a:array[0..31,0..31] of longint;
 i,j:longint;
 m,n:longint; //Строки/Столбцы
 sum:longint; //Сумма положительных чисел
 max:longint; //Макс. элемент
 {R:longint;}   //Переменная для смены мест
//======================================================================
begin                 {Ввод матрицы:}
writeln('Введите число строк и столбцов:');
readln(n,m);
if (n>1) and (n<10) and (m>1) and (m<10) then
 begin
 dec(n);
 dec(m);
     begin
     for i:=0 to n do
      for j:=0 to m do
            begin
            write('A[',i:2,', ',j:2,']=');
            readln(A[i,j]);
            end;
            writeln('========================================');
     end;
     sum:=0;
     for i:=0 to n do
        begin
         for j:=0 to m do
        begin
         write(a[i,j]:5);
         //Сумма_положительных_элементов=====
          if a[i,j]>=0 then
          sum:=sum+a[i,j];
         //Сумма_положительных_элементов=====
         end;
         writeln;
         end;
//======================================================================
writeln('Сумма всех положительных элементов = ',sum); //Сумма вывод
//=======================Нахождение максимального значения==============
          for i:=0 to n do
          begin
          for j:=0 to m do
          if (A[i,j]>max) then
          max:=A[i,j];
          end;
          writeln(max,' -- максимальное значение в этой матрице!');
//======================================================================
 end else
    begin                    {Ошибка ввода}
    textcolor(red);
    writeln('=============================');
    writeln('  Ошибка ввода! 1<(m, n)<10  ');
    writeln('=============================');
    end;
end.

const
    MAX = 10;
type
    TVector = Array[1..MAX] Of ShortInt;
var
    ar: Array[1..MAX] Of TVector;
    maxs: Array[1..MAX] Of 1..MAX;
    tempAr: TVector;
    i, j, n, m, temp: 1..MAX;
    sum: Integer;
begin
    Write('Введите количество строк: '); ReadLn(n);
    Write('Введите количество столбцов: '); ReadLn(m);
    sum := 0;
    Randomize;
    WriteLn('Исходная матрица:');
    for i := 1 to n do
    begin
        maxs[i] := 1;
        for j := 1 to m do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
            if (ar[i, j] > 0)
            then
                Inc(sum, ar[i, j]);
            if (ar[i, j] > ar[i, maxs[i]])
            then
                maxs[i] := j;
        end;
        WriteLn;
    end;
    WriteLn('Сумма положительных: ', sum);
    for i := 1 to n - 1 do
        for j := 1 to n - i do
            if (ar[j, maxs[j]] < ar[j + 1, maxs[j + 1]])
            then
            begin
                tempAr := ar[j];
                ar[j] := ar[j + 1];
                ar[j + 1] := tempAr;
                temp := maxs[j];
                maxs[j] := maxs[j + 1];
                maxs[j + 1] := temp;
            end;
    WriteLn('Сортированная матрица:');
    for i := 1 to n do
    begin
        for j := 1 to m do
            Write(ar[i, j]:4);
        WriteLn;
    end;
end.

{...}
            begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
            if (ar[i, j] > 0)
{...}

{...}
            begin
            ar[i][j]:=Random(199) - 99;
            Write(ar[i][j]:4);
            if (ar[i][j] > 0)
{...}