Дан массив С (10х10). Найти наименьшие элементы в каждом столбце массива и поместить их в последнюю строку- Pascal(Паскаль)

program min;

var
  a: array [1 .. 10, 1 .. 10] of longint;
  i, j, min: longint;

BEGIN
  for i := 1 to 10 do
    for j := 1 to 10 do
      read(a[i, j]);
  for i := 1 to 10 do
  begin
    min := a[1, i];
    for j := 2 to 10 do
      if a[j, i] < min then
        min := a[j, i];
    a[10, i] := min;
  end;
  for i := 1 to 10 do
  begin
    for j := 1 to 10 do
      write(a[i, j], ' ');
    writeln;
  end;

END.