Нахождение произведения элементов столбца с максимальным номером, содержащей минимальный элемент матрицы — Pascal(Паскаль)

program ff; { заголовок программы }

var { описание раздела переменных }
  A: array [1 .. 100, 1 .. 100] of integer; { задание массива }
  i, j, n: integer; { доп. переменные }
  proizv, min, stolb: integer; { доп. переменные }

begin { начало программы }
  write('Vvedite razmer massiva A: ');
  readln(n); { ввод размерности массива }

  for i := 1 to n do { ввод массива с клавы }
    for j := 1 to n do
    begin { ввод массива с клавы }
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end; { ввод массива с клавы }

  write('Vot vvedennyy vami massiv A: '); { вывод элементов массива на экран }
  for i := 1 to n do
  begin
    writeln; { вывод элементов массива на экран }
    for j := 1 to n do
      write(A[i, j]:3, ' ');
  end; { вывод элементов массива на экран }

  min := A[1, 1]; { изначально MIN элемент задаём первому элементу матрицы }
  stolb := 0; { изначально номер столбца задаём первому элементу матрицы }
  for i := 1 to n do { находим минимум и номер этого столбца }
    for j := 1 to n do { находим минимум и номер этого столбца }
      if A[i, j] <= min then
      begin
        min := A[i, j];
        stolb := j;
      end; { находим минимум и номер этого столбца }

  proizv := 1; { изначально обнуляем произведение }
  for i := 1 to n do
    proizv := proizv * A[i, stolb];
  { перемножаем все элементы нужного нам столбца }
  writeln;
  writeln('Proizvedenie ', stolb, ' stolbca = ', proizv);
  { результат выводим на экран }
  readln;

end.