Дан двумерный массив A(n,m). Найти произведение нулевых элементов в каждой строке количество нулевых элементов во всем массиве — Pascal(Паскаль)

program m1;

var
n,m,t,i,j,summ:integer;
a:array[1..7,1..8] of integer;

Begin
n:=7;
m:=8;
For i:=1 to n do
begin
  For j:= 1 to m do
   Begin
     a[i,j]:=((1-random(1)))*(50-random(51));
     write(' ',a[i,j]);
     end;
writeln();
end;

Summ:=0;
For i:=1 to n do
 Begin
  T:=1;
  For j:=1 to m do
   If a[i,j]=0 then inc(Summ) else t:=t*a[i,j];
  Writeln('В строке ',i,' произведение не нулевых: ',t);
 End;
 Writeln('Всего нулевых элементов: ',Summ);
 end.