Упорядочить строки матрицы А по возрастанию 1-го элемента строки

uses crt;
const nmax=20;//макс. размер матрицы
type mtr=array[1..nmax,1..nmax] of integer;//тип матрицы
procedure SwapRow(var a:mtr;m,n,k1,k2:integer);
{кстати параметр m не нужен}
var j,x:integer;
begin
for j:=1 to n do//все элементы двух строк
 begin
  x:=a[k1,j];
  a[k1,j]:=a[k2,j];//обмениваем местами
  a[k2,j]:=x;
 end;
end;
var a:mtr;
    m,n,i,j:byte;
begin
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readn(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
read(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;
writeln;
//сортировка
for i:=1 to m-1 do//от первой до предпоследней строки
for j:=i+1 to m do//смотрим все строки впереди
if a[i,1]>a[j,1] then//если у первой первый элемент больше
SwapRow(a,m,n,i,j);//обмениваем
writeln('Перестановка строк по возрастанию первого элемента:');
for i:=1 to m do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
end.