Дан двумерный массив вещественных чисел размерностью NхM. В каждом столбце найти максимальный элемент, а среди них – минимальный — Pascal(Паскаль)

uses crt;
const
  n=3;
var
  a:array [1..n,1..n] of integer;
  maxar:array [1..n] of integer;
  i,j,max:integer;
begin

  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j],' ')
    end;
    writeln
  end;
  writeln('------------------');
 
  for i:=1 to n do
  begin
    max:=a[i,1];
    for j:=1 to n do
      if a[i,j]>max then
        max:=a[i,j];
    writeln(max);
    maxar[i]:=max
  end;
  max:=maxar[1];
  for i:=1 to n do
  begin
    writeln('Максимальный  ',i,' столбца = ',maxar[i]);
    if maxar[i]<max then
      max:=maxar[i]
  end;
  writeln('Минимальный ',max)
end.