Упорядочить каждый столбец матрицы по возрастанию - Pascal

var
    ar: Array[Byte, Byte] Of ShortInt;
    i, j, k, m, n: Byte;
    temp: ShortInt;
begin
    repeat
        Write('Количество строк: ');
        ReadLn(m);
    until (m > 0);
    repeat
        Write('Количество столбцов: ');
        ReadLn(n);
    until (n > 0);
    Randomize;
    WriteLn('Оригинальная матрица:');
    for i := 0 to m - 1 do
    begin
        for j := 0 to n - 1 do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
        end;
        WriteLn;
    end;
    for j := 0 to n - 1 do
        for i := 0 to m - 2 do
            for k := 0 to m - 2 - i do
                if (ar[k, j] > ar[k + 1, j])
                then
                begin
                    temp := ar[k, j];
                    ar[k, j] := ar[k + 1, j];
                    ar[k + 1, j] := temp;
                end;
    WriteLn('Сортированная матрица:');
    for i := 0 to m - 1 do
    begin
        for j := 0 to n - 1 do
            Write(ar[i, j]:4);
        WriteLn;
    end;
end.