Ввести массив из 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]lt;0) then Pm:=Pm*a[i];
if(a[i]gt;0) then Pp:=Pp*a[i];
end;
writeln(произв. положительных: ,Pp);
writeln(произв. отрицательных: ,Pm);
end.