Быстрая сортировка матрицы - Pascal ABC

const nmax=10;
type mas=array[1..nmax] of integer;
     mtr=array[1..nmax] of mas;
procedure sort(l,r:integer;var a:mtr);
var i,j,x,m:integer;
    t:mas;
begin
i:=l;
j:=r;
m:=(l+r)div 2;
x:=a[m][1];
repeat
while a[i][1]<x do inc(i);
while a[j][1]>x do dec(j);
if i<=j then
 begin
  t:=a[i];
  a[i]:=a[j];{меняем строки}
  a[j]:=t;
  inc(i);
  dec(j); 
 end;
until i>j;
if l<j then sort(l,j,a);
if i<r then sort(i,r,a);
end;
 
var a:mtr;
    m,n,i,j:byte;
begin
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i][j]:=random(20);
    write(a[i][j]:4);
   end;
  writeln;
 end;
sort(1,m,a);
writeln('Отсортированная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i][j]:4);
  writeln;
 end;
end.