Сортировка двумерных массивов

const nmax=5;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k:byte;
    x:integer;
begin
 clrscr;
 randomize;
 repeat
 write('Количество строк m= ');
 readln(m);
 write('Количество столбцов n= ');
 readln(n);
 until (m in [1..nmax])and(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;
 for i:=1 to m do
  for j:=1 to n-1 do
   for k:=j+1 to n do
    if a[i,j]>a[i,k] then
     begin
      x:=a[i,j];
      a[i,j]:=a[i,k];
      a[i,k]:=x;
     end;
 writeln('Сортировка: ');
 for i:=1 to m do
  begin
   for j:=1 to n do
   write(a[i,j]:4);
   writeln;
  end;
 readln
end.

const n=5;
procedure Swap(var a,b:integer);
var tmp:integer;
begin
tmp:=a;
a:=b;
b:=tmp;
end;
var a:array[0..n-1,0..n-1] of integer;
    i,j,k:byte;
    x:integer;
begin
randomize;
writeln('Исходная матрица:');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=11+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
//сортировка всей матрицы по возрастанию
for i:=0 to n*n-2 do
for j:=i+1 to n*n-1 do
if a[i div n,i mod n]>a[j div n,j mod n]
then Swap(a[i div n,i mod n],a[j div n,j mod n]);
writeln('Отсортированная матрица по возрастанию');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j]:3);
  writeln;
 end;
end.