Матрица А. Найти минимальный элемент в каждом столбце и поменять его местами с первым элементом этого столбца — Pascal(Паскаль)

const
  n = 10;
var
  a:array[1..n,1..n] of integer;
  i,j,min,tmp:integer;
begin
  for i:= 1 to n do begin
    writeln;
    for j:= 1 to n do begin
      a[i,j]:= random(20)-10;
      write(a[i,j]:3);
    end;
  end;
  for j:= 1 to n do begin
    min:= 1;
    for i:= 1 to n do
    if a[i,j] < a[min,j] then min:= i;
    tmp:=a[min,j];
    a[min,j]:= a[1,j];
    a[1,j]:= tmp;
  end;
  writeln;
  writeln;
  for i:= 1 to n do begin
    writeln;
    for j:= 1 to n do
    write(a[i,j]:3);
  end;
end.