Дана целочисленная квадратная матрица размером М на N. Найти произведение ненулевых элементов матрицы — Pascal(Паскаль)

program abc;
uses crt;
var
a:array[1..100,1..100] of integer;
b,c,d,i,j,m,n,c1,x:longint;
begin
clrscr;
writeln('Vvedite M,N');
readln(m,n);
for i:=1 to m do begin
                           for j:=1 to n do begin
                                                     x:=random(50)-5;
                                                     a[i,j]:=x;
                                                     write(a[i,j]:4);
                                                     end;
                                                     writeln;
                        end;
c:=1;
for i:=1 to m do begin
                          for j:=1 to n do if a[i,j]<>0 then begin
                                                                              c:=c*a[i,j];
                                                                              end;
                           end;
writeln('proizvedenie = ',c);
readln;
end.