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

uses crt;
type matr=array[1..10,1..10] of real;
procedure Swap(var a,b:real); {процедура обмена двух элементов}
var tmp:real;
begin
tmp:=a;
a:=b;
b:=tmp;
end;
var a:matr;
    n,m,i,j,k,v:integer;
begin
clrscr;
randomize;
repeat
write('Введите количество строк до 10 n=');
readln(n);
until n in [1..10];
repeat
write(' Введите количество столбцов до 10 m=');
readln(m);
until m in [1..10];
writeln;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=10*random;{заполним матрицу случайными числами в инт(0,10)}
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
writeln;
{сортировка матрицы по возрастанию пузырьком по строкам}
for k:=1 to n*m do  {повторяем сколько элементов в матрице}
for i:=1 to n do
for j:=1 to m do
   begin
    if j<>m then {если элемент в строке не последний}
      begin
       if a[i,j+1]>a[i,j]
       then Swap(a[i,j+1],a[i,j]){обмен элементов}
      end
    else
     if (a[i+1,1]>a[i,j])and(i<>n) {если строка не последняя}
     {меняем первый элемент в следущей строке с последним элементом в текущей строке}
     then Swap(a[i+1,1],a[i,j]);
   end;
writeln('Отсортированная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:5:2);
  writeln;
 end;
readln
end.