В каждом столбце найти максимальный элемент, а среди них – минимальный

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
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  writeln('------------------');
  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.