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

type tmati=array[1..50,1..50] of integer;
var n,m:byte; a:tmati;
(*прцедура ввода элементов матрицы*)
procedure pr_wod_matr(var n1,m1:byte; var mas:tmati);
var i,j:byte; kl:byte;
begin
  writeln('Введи размерность матрицы n,m');
  readln(n1,m1);
  writeln('1-ввод случайным образом, 2-ввод с клавиатуры');
  readln(kl);
  if kl=1 then randomize;
  for i:=1 to n1 do
   for j:=1 to m1 do
    case kl of
    1:mas[i,j]:=random(256);
    2:begin
        writeln('Введи элемент',i,' строки ',j,' столбца матрицы');
        readln(mas[i,j]);
      end;
  end;
end;
(*процедура вывода элементов матрицы*)
procedure pr_out_matr(n1,m1:byte; mas:tmati);
var i,j:byte;
begin
   writeln('Матрица');
   for i:=1 to n1 do
   begin
     for j:=1 to m1 do
     write(mas[i,j]:6);
     writeln;
   end;
end;
procedure pr_swap(var a,b:integer);
begin
  a:=a+b;
  b:=a-b;
  a:=a-b;
end;
procedure pr_sort(n,m:byte;var a:tmati);
var i,j:byte; pr:boolean;
begin
  pr:=true;
  while pr do
  begin
    pr:=false;
    for i:=1 to n do
    begin
       for j:=1 to m-1 do
       if a[i,j]<a[i,j+1] then begin
                                 pr_swap(a[i,j],a[i,j+1]);
                                 pr:=true;
                                end;
       if (i<>n)and(a[i,m]<a[i+1,1]) then begin
                                            pr_swap(a[i,m],a[i+1,1]);
                                            pr:=true;
                                          end;
    end;
  end;
end;
begin
  pr_wod_matr(n,m,a);
  pr_out_matr(n,m,a);
  pr_sort(n,m,a);
  pr_out_matr(n,m,a);
end.