Дан двумерный массив 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]>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.