Программа, которая сортирует по возрастанию каждую строчку прямоугольной матрицы, заполненной случайными числами

program Project1;
const
  maxrow = 20;
  maxcol = 20;
 
var
  a: array[1..maxrow,1..maxcol] of integer; { Переменная для хранения массива.}
  n,m: integer; { Переменные для хранения значения строк и столбцов двумерного массива. }
  i,j,k: integer; { Вспомогательные переменные для организации циклов.}
  tmp: integer; {Промежуточная переменная для сортировки двумерного массива}
begin
  Randomize;
  write('Введите значение количества строк в двумерном массиве (не более ',maxrow,'): ');
  Readln(n);
  write('Введите значение количества столбцов в двумерном массиве (не более ',maxcol,'): ');
  Readln(m);
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      for j:= 1 to m do
        begin
          a[i,j]:= random(31)-10; {Заполнение двумерного массива числами от -10 до 20}
          write(a[i,j]:5);    { Вывод двумерного массива в консоль.}
        end;
      Writeln;
    end;
  for i:= 1 to n do                 {Сортировка строк по возрастанию}
    for j:= 1 to m-1 do
      for k:= 1 to m-j do
        if a[i,k] > a[i,k+1] then
        begin
          tmp:= a[i,k];
          a[i,k]:= a[i,k+1];
          a[i,k+1]:= tmp;
        end;
   writeln('Отсортированный массив: ');
  for i:= 1 to n do
    begin
      for j:= 1 to m do
        write(a[i,j]:5);    { Вывод двумерного массива в консоль.}
      Writeln;
    end;
  Readln;
end.