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

var
 A:array[1..10,1..10] of integer;
 i,j,m,n,P,min:integer;
begin
 Readln(m,n);
 for i:=1 to m do
   for j:=1 to n do
     Readln(A[i,j]);
 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(P)
  end;
readln
end.

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.