Упорядочить элементы массива по убыванию модулей элементов строк методом Хоара

uses crt;
const nmax=10;
type mtr=array[1..nmax,1..nmax] of integer;
{процедура сортировки строк методом Хоара по убыванию модулей элементов}
procedure sort(var x:mtr;k,l,r:integer);
{k- номер строки, l начало строки,r-конец}
var i,j,x1,y1,m: integer;
begin
i:=l;
j:=r;
m:=round ((l+r)/2);{средний элемент}
x1:=abs(x[k,m]);
repeat
while abs(x[k,i])>x1 do inc(i);{пока левый больше среднего, подвигоем левый край вправо }
while abs(x[k,j])<x1 do dec(j);{пока правый меньше среднего, подвигаем левый вправо}
if i<=j then {если левый и правый срослись}
 begin
  y1:=x[k,i];
  x[k,i]:=x[k,j];{меняем левый и правый}
  x[k,j]:=y1;
  inc(i); {левый вправо}
  dec(j); {правый влево}
 end;
until i>j;{конец одной перестановки}
if l<j then sort(x,k,l,j);{рекурсивно сортируем}
if i<r then sort(x,k,i,r);{или левую или правую части}
end;
var a:mtr;
    m,n,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк от 2 до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов от 2 до ',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]:=-25+random(51);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to m do
sort(a,i,1,n);
writeln('Сортировка строк по убыванию модулей:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
readln;
end.