Составе программу:1)в линейном массиве найти произведение положительных чисел2)в линейном массиве найти все отрицательные числаЗаранее спасибо !

Program qq;
const n=10
var a:array[1..n] of integer;
       i,p:integer;

begin
for i:=1 to n do begin
writeln(Введите Элементы масивa a[,i,]=
);
readln(a[i]);
if a[i]>0 then p:=p*a[i];
end;

writeln(Произведение эл-ов массива = ,p);

writeln(отрицательные эл-ты);

for i:=1 to n do
if a[i]
readln
end.