Дана квадратная матрица А порядка n. Составить программу, которая находит минимальный элемент каждого столбца — Pascal(Паскаль)

uses
  crt;
const
  n=4;
var
  a:array [1..n,1..n] of integer;
  i,j,min:integer;
begin
  clrscr;
  
  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]:2,' ')
    end;
    writeln
  end;

  for j:=1 to n do
  begin
    min:=a[1,j];
    for i:=2 to n do
      if a[i,j]<min then
        min:=a[i,j];
    writeln('Столбец ',j,' Минимальный: ',min)
  end
end.