Сортировка массива по убыванию абсолютных значений наименьших элементов строк

uses crt;
const nmax=20;
type matr=array [1..nmax,1..nmax] of integer;
var a: matr;
    n,m,v: byte;
    
procedure Razmer (var ri,rj: byte);
begin
repeat
write('Количество строк, не более ',nmax,', n='); readln(ri);
until ri in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m='); readln(rj);
until rj in [1..nmax];
end;
 
procedure Vvod(ri,rj: byte; var z:matr);
var i,j:byte;
begin
clrscr;
writeln('Заполняем матрицу ');
for i:=1 to ri do
    for j:=1 to rj do
        begin
        write('a[',i,',',j,']=');
        readln(z[i,j]);
        end;
end;
 
procedure Gen (ri,rj: byte; var z: matr);
var i,j: byte;
begin
for i:=1 to ri do
    for j:=1 to rj do
        z[i,j]:=random(199)-99;
end;
     
procedure Vyvod(ri,rj: byte; z:matr);
var i,j:byte;
begin
for i:=1 to ri do
    begin
    for j:=1 to rj do
        write(z[i,j]:4);
    writeln;
    end;
end;
 
procedure Swap (var z1,z2: integer);
var buf: integer;
begin
buf:=z1;
z1:=z2;
z2:=buf;
end;
 
procedure Obmen(rj,ns1,ns2: byte; var z: matr);
var j: byte;
begin
for j:=1 to rj do
    Swap (z[ns1,j],z[ns2,j]);
end;
 
function MinZ (ns,rj: byte; z: matr): integer;
var j,jmin: byte;
begin
jmin:=1;
for j:=1 to rj do
    if abs(z[ns,j])<abs(z[ns,jmin]) then jmin:=j;
MinZ:=abs(z[ns,jmin]);
end;
 
procedure Sort (ri,rj: byte; var z: matr);
var e,i: byte;
begin
e:=0;
while e<=ri do
      begin
      for i:=1 to n-1 do
          if  MinZ (i,rj,z)<MinZ (i+1,rj,z)
              then Obmen(rj,i,i+1,z);
      inc(e);
      end;
end;
 
begin
Razmer (n,m);
repeat
write('1-ввод вручную, 2-заполнение случайными числами'); readln(v);
until v in [1..2];
if v=1 then Vvod(n,m,a) else Gen (n,m,a);
clrscr;
writeln('Исходная матрица');
Vyvod(n,m,a);
Sort (n,m,a);
writeln('Итоговая матрица');
Vyvod(n,m,a);
readln;
end.