Найти минимальный среди элементов ниже главной диагонали и произведения элементов в каждой строке - Pascal ABC

var
  A: array[1..10, 1..10] of integer;
  i, j: integer; // переменные для прохода по массиву
  m, n: integer; // количество строк и столбцов
  P: integer; // произведение элементов строки
  min: integer;// минимум
 
begin
  write('Enter m, n: '); // приглашение на ввод кол-ва строк и столбцов
  Readln(m, n);           // считываем количество строк и столбцов с клавиатуры
  for i := 1 to m do       
    for j := 1 to n do
    begin
      write('a[', i, ',', j, ']='); // приглашение на ввод элементов
      Readln(A[i, j]);    // считываем элементы массива
    end;
  min := maxint; {maxint vozvrashaet 32727} 
  for i := 1 to m do
    for j := 1 to n do
      if (i > j) // если мы ниже главной диагонали ...
      and (A[i, j] < min) then //... и элемент меньше минимума ...
        min := A[i, j]; //... принимаем за минимум этот элемент
  Writeln('min=', min);
  for i := 1 to m do // проходим по строкам
  begin
    P := 1; // очередному произведению присваиваем значение единицы
    for j := 1 to n do // проходим по элементам строки
      P := P * A[i, j]; // находим произведение
    writeln(i, '. ', P)// и выводим
  end;
  readln
end.