Дан двумерный массив A размерностью М*N. Отсортировать все строки по возрастанию

program arrays_19;
const n=10;m=10;
var i, j, k, p, ch, key1, key2: integer;
a: array[1..n,1..m] of integer;
begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i, j]:=random(10); //заполнение массива случайными числами и вывод на экран
write(a[i, j]:3);
end;
writeln;
end;
for i:=1 to n do begin // сортировка каждой строчки по возростанию
for j:=1 to m do begin
for k:=1 to 9 do begin
key2:=k;
ch:=a[j, k];
if a[j, key2]gt;a[j, k+1]
then key2:=k+1;
a[j, k]:=a[j, key2];
a[j, key2]:=ch

end;
end;
end;
writeln; write(Отсортированный массив:);
writeln;
for i:=1 to n do begin //вывод ответа
for j:=1 to m do begin
write(a[i, j]:3);
end;
writeln;
end;
end.