Определить произведение элементов в тех строках, которые не содержат отрицательных элементов - Turbo Pascal - Ответ 3732975

uses crt;
 
const
  mmax = 10;
  nmax = 10;
 
type
  Matrix = array [1..mmax, 1..nmax] of integer;
 
 
procedure Enter(var A : Matrix; m, n : integer);
var
  i, j : integer;
begin
for i := 1 to m do
  for j := 1 to n do
    begin
    Write('A[', i, ',', j, '] = ');
    Readln(A[i, j]);
    end;
end;
 
procedure OutPut(A : Matrix; m, n : integer);
var
  i, j : integer;
begin
Writeln('Исходная матрица: ');
for i := 1 to m do
  begin
  for j := 1 to n do
    Write(A[i, j], ' ');
  Writeln;
  end;
end;
 
procedure Negative (A : Matrix; m, n : integer);
var
  i, j, k : integer;
  Product : double;
  flag : boolean;
begin
for i := 1 to m do
  begin
  flag := true;
  for j := 1 to n do
   if (A[i, j] < 0) and flag then flag := false;
  if flag then
    begin
    Product := 1;
    for k := 1 to n do
      Product := Product*A[i, k];
    Writeln('Произведение ', i, ' строки = ', Product:0:0);  
    end;
  end; 
end;
  
var
  A : Matrix;
  m, n : integer;
  
begin
repeat
Write('Количество строк (не более ', mmax, ') : ');
Readln(m);
until m in [1..mmax];
repeat
Write('Количество столбцов (не более ', nmax, ') : ');
Readln(n);
until n in [1..nmax];
Enter(A, m, n);
OutPut(A, m, n);
Negative(A, m, n);  
end.