Матрица N x N

uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
     mas=array[1..nmax] of integer;
procedure Max(mt:matr;n:byte;var v:mas);
var i,j,imx:byte;
    mx:integer;
begin
writeln('Максимальные элементы столбцов:');
for j:=1 to n do
 begin
  v[j]:=mt[1,j];imx:=1;
  for i:=1 to n do
  if mt[i,j]>v[j] then
   begin
    v[j]:=mt[i,j];
    imx:=i;
   end;
  write('[',imx,',',j,']=',v[j],'  ');
 end;
writeln;
end;
var a:matr;
    b:mas;
    n,i,j:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
Max(a,n,b);
{сортировка по убыванию}
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]<b[j] then
 begin
  x:=b[i];
  b[i]:=b[j];
  b[j]:=x;
 end;
writeln('Максимальные элементы столбцов по убыванию:');
for i:=1 to n do
write(b[i],' ');
readln
end.