Сортировка строк двумерного массива по возрастанию - Pascal

type
    TLine = Array[Byte] Of ShortInt;
    TArray = Array[Byte] Of TLine;
procedure PrintArray(const ar: TArray; const n, m: Byte);
var
    i, j: Byte;
begin
    WriteLn;
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
            Write(ar[i, j]:4);
        WriteLn;
    end;
    WriteLn;
end;
 
procedure SortLine(var l: TLine; const m: Byte);
var
    j, k: Byte;
    temp: ShortInt;
begin
    for j := 0 to m - 2 do
        for k := j + 1 to m - 1 do
            if (l[j] > l[k])
            then
            begin
                temp := l[j];
                l[j] := l[k];
                l[k] := temp;
            end;
end;
var
    ar: TArray;
    n, m, i, j: Byte;
begin
    Randomize();
    repeat
        Write('Input n=');
        ReadLn(n);
    until (n > 0);
    repeat
        Write('Input m=');
        ReadLn(m);
    until (m > 0);
    for i := 0 to n - 1 do
        for j := 0 to m - 1 do
            ar[i, j] := Random(199) - 99;
    PrintArray(ar, n, m);
    for i := 0 to n - 1 do
        SortLine(ar[i], m);
    PrintArray(ar, n, m);
end.