Задан массив raf из n чисел (n=11) случайным образом в диапазоне [-5..15]. найти произведение отрицательных элементов массива.

Program n1;
const n=11;
var RAF: array[1..n] of integer;
i: integer;
p: real;
begin
write('массив: ');
for i:=1 to n do begin
RAF[i]:=random(21)-5;
write(RAF[i],' ');
end;
p:=1;
writeln;
for i:=1 to n do if RAF[i]<0 then p:=p*RAF[i];
write('произведение отрицательных: ',p);
end.