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

var
a:array of array of integer;
 
 
procedure output(a:array of array of integer;n:integer;m:integer);
begin
writeln;
for var i:=0 to n-1 do
  begin
    for var j:=0 to m-1 do  begin
                            write(a[i,j]:3);
                            end;
  writeln;                          
  end;
end;
 
function multiplication(a:array of array of integer;n:integer;m:integer):biginteger;
 
var multi:biginteger;
var flag:boolean;
 
begin
multi:=1;
for var i:=0 to n-1 do
  begin
  flag:=false;
    for var j:=0 to m-1 do if (A[i,j]<0) then flag:=true;
    if (flag=true) then for var x:=0 to m-1 do multi:=multi;
    if (flag=false) then for var y:=0 to m-1 do multi:=multi*A[i,y];
  writeln('Строка - ',i,'; Флаг - ',flag);
  end;
multiplication:=multi;  
end;  
 
begin
var n:=readInteger('Количество строк: ');
var m:=readInteger('количество столбцов: ');
setLength(a,n);
for var i:=0 to n-1 do setLength(a[i],m);
 
for var i:=0 to n-1 do
  for var j:=0 to m-1 do a[i,j]:=random(20)-2;
writeln('Исходная матрица: ');  
output(a,n,m);
writeln('Произведение всех элементов с условием: ',multiplication(a,n,m));
 
end.