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

const
    MAXSIZE = 10;
type
    TVector = Array[1..MAXSIZE] Of ShortInt;
var
    ar: Array[1..MAXSIZE] Of TVector;
    swap: TVector;
    maxs: Array[1..MAXSIZE] Of 1..MAXSIZE;
    i, j, sw: 1..MAXSIZE;
    n, m: ShortInt;
begin
    Randomize;
    repeat
        Write('Введите количество строк (1..', MAXSIZE, '): ');
        ReadLn(n);
    until (n in [1..MAXSIZE]);
    repeat
        Write('Введите количество столбцов (1..', MAXSIZE, '): ');
        ReadLn(m);
    until (m in [1..MAXSIZE]);
    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] > ar[i, maxs[i]])
            then
                maxs[i] := j;
        end;
        WriteLn;
    end;
    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
                swap := ar[j];
                ar[j] := ar[j + 1];
                ar[j + 1] := swap;
                sw := maxs[j];
                maxs[j] := maxs[j + 1];
                maxs[j + 1] := sw;
            end;
    WriteLn('Сортированная матрица:');
    for i := 1 to n do
    begin
        for j := 1 to m do
            Write(ar[i, j]:4);
        WriteLn;
    end;
end.