Упорядочивание матрицы

uses crt;
const nmax=20;
type mas=array [1..nmax, 1..nmax] of integer;
var b: mas;
    n: byte;
 
procedure Gen (var r: byte; var z: mas);
var i,j: byte;
begin
repeat
write('Размерность матрицы, не более ',nmax,', n='); readln(r);
until r in [1..nmax];
for i:=1 to r do
    for j:=1 to r do
        z[i,j]:=random(19)-9;
end;
 
procedure Vyvod (r: byte; z: mas);
var i,j: byte;
begin
for i:=1 to r do
    begin
    for j:=1 to r do
        write(z[i,j]:4);
    writeln;
    end;
end;
 
procedure SortSt (ns,r: byte; var z: mas);
var i,e: byte; buf: integer;
begin
e:=0;
while e<=n do
      begin
      for i:=1 to n-1 do
          if z[i,ns]<z[i+1,ns] then
             begin
             buf:=z[i,ns];
             z[i,ns]:=z[i+1,ns];
             z[i+1,ns]:=buf;
             end;
      inc(e);
      end;
end;
 
function Min (r: byte; z: mas): integer;
var i,j: byte; m: integer;
begin
m:=z[1,1];
for i:=1 to n do
    for j:=1 to n do
        if z[i,j]<m then m:=z[i,j];
Min:=m;
end;
 
procedure Change (minn: integer; r: byte; var z: mas);
var i,j: byte;
begin
for i:=1 to n do
    for j:=1 to n do
        if z[i,j]=minn then SortSt (j,r,z);
end;
 
begin
Gen (n,b);
writeln('Исходная матрица');
Vyvod (n,b);
writeln('Мин. значение=',Min (n,b));
Change (Min (n,b),n,b);
writeln('Сортированная матрица');
Vyvod (n,b);
readln;
end.