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

const
    n = 7;
    m = 8;
 
var
    a : Array[1..n, 1..m] Of ShortInt;
    i, j, k : Byte;
    temp : ShortInt;
 
begin
    //заполнение и вывод начального массива
    Randomize;
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := Random(41)-20; //если я правильно понял, то рандом между -20 и 20
            Write(a[i, j]:4);
        end;
        WriteLn;
    end;
    WriteLn; WriteLn; WriteLn;
    //самая банальная сортировка пузырьком
    for i := 1 to n do //для каждой строки
    begin
        for j := 1 to m do //для каждого элемента строки
            for k := 1 to m-j do 
                if (a[i, k] > a[i, k+1]) then //проверяем больше ли он следующего
                begin
                    //меняем местами
                    temp := a[i, k];
                    a[i, k] := a[i, k+1];
                    a[i, k+1] := temp;
                end;
        //вывод
        for j := 1 to m do
            Write(a[i, j]:4);
        WriteLn;
    end;
end.