Процедуры. В матрице упорядочить столбцы по убыванию, в которых количество отрицательных >=2

uses crt;
const nmax=20;
type matr=array [1..nmax,1..nmax] of integer;
var a: matr;
    n,m: byte;
 
procedure EnterM (var ri: byte; var rj: byte; var z: matr);
var i,j: byte;
begin
repeat
write('Количество строк, не более ',nmax,', n='); readln(ri);
until ri in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m='); readln(rj);
until rj in [1..nmax];
for i:=1 to ri do
    for j:=1 to rj do
        begin
        write('a[',i,',',j,']='); readln(z[i,j]);
        end;
end;
 
procedure PrintM (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;
 
function CountOtr (ri,ns: byte; z: matr): byte;
var i,k: byte;
begin
k:=0;
for i:=1 to ri do
    if z[i,ns]<0 then inc(k);
CountOtr:=k;
end;
 
procedure Obmen (var x: integer; var y: integer);
var t: integer;
begin
t:=x;
x:=y;
y:=t;
end;
 
procedure Sort (ri,rj: byte; var z: matr);
var i,j,e: byte;
begin
for j:=1 to rj do
    if CountOtr (ri,j,z)>=2 then
       begin
       e:=0;
       while e<=ri do
             begin
             for i:=1 to ri-1 do
                 if z[i,j]<z[i+1,j]
                    then Obmen (z[i,j],z[i+1,j]);
             inc(e);
             end;
       end;
end;
 
begin
EnterM (n,m,a);
writeln('Исходная матрица');
PrintM (n,m,a);
Sort (n,m,a);
writeln('Преобразоанная матрица');
PrintM (n,m,a);
end.