Ввести массив из 50 элементов с датчика случайных чисел. найти отдельно произведение положительных элементов и произведение отрицательных элементов.

Program mas;
const n=50;
var a: array [1..n] of integer;
i,Pp,Pm: integer;
begin
randomize;
Pp:=1;
Pm:=1;
for i:=1 to n do a[i]:=Random(100)-50;
for i:=1 to n do
begin
if(a[i]<0) then Pm:=Pm*a[i];
if(a[i]>0) then Pp:=Pp*a[i];
end;
writeln('произв. положительных: ',Pp);
writeln('произв. отрицательных: ',Pm);
end.