Составить программу в Pascal определяющую произведение всех отрицательных…

Var a: array [1… 100,1… 100] of integer; s, n, m , i, j: integer; begin s: =1; readln (n,m); for i: =1 to n do for j: =1 to m do begin readln (a[i,j]); if a[i,j]<0 then s: =s*a[i,j] end; writeln (s); end.