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