Отсортировать по нарастанию строки матриц 4х5 и 3х3 с использованием массива открытого типа

uses crt;
const
  nmax=10000;
  k=3;
var
  r:array[1..nmax,1..nmax] of integer;
  z,tmp,i,j,n,m:integer;
begin
  clrscr;
  for i:=1 to k do 
  begin
    randomize;
    repeat
    write('Введите количество строк: ');
    readln(n);
    write('Введите количество столбцов: ');
    readln(m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  writeln('Исходная матрица: ');
  for i:=1 to n do
    for j:=1 to m do
      begin
        r[i,j]:=random(20)+1;
        write(r[i,j]:4);
        if j=m then
          writeln;
      end;
  for i:=1 to n do
    for j:=1 to m-1 do
      for z:=j+1 to m do
        if r[i,j]>r[i,z] then
          begin
            tmp:=r[i,j];
            r[i,j]:=r[i,z];
            r[i,z]:=tmp;
          end;
  writeln('Отсортированная матрица: ');
  for i:=1 to n do
    for j:=1 to m do
      begin
        write(r[i,j]:4);
        if j=m then
          writeln;
      end;
      writeln;
      if i>k+1 then break
  end;
  readln;
end.

uses crt;
const m=4;
         n=5;
         k=3;
procedure sort(var r:array of integer);
var i,j,tmp:integer;
begin
for i:=low(r) to high(r)-1 do
for j:=i+1 to high(r) do
if r[i]>r[j] then
 begin
  tmp:=r[i];
  r[i]:=r[j];
  r[j]:=tmp;
 end;
end;
var a:array[1..4,1..5] of integer;
    b:array[1..3,1..3] of integer;
    i,j:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица А');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20)+1;
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to m do
sort(a[i]);
writeln('Отсортированная матрица А');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
writeln('Исходная матрица B');
for i:=1 to k do
 begin
  for j:=1 to k do
   begin
    b[i,j]:=random(20)+1;
    write(b[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to k do
sort(b[i]);
writeln('Отсортированная матрица B');
for i:=1 to k do
 begin
  for j:=1 to k do
  write(b[i,j]:4);
  writeln;
 end;
readln;
end.