Найти произведение всех элементов массива целых чисел, меньших 0. Размерность массива – 10. Заполнение массива осуществить с клавиатуры- Pascal(Паскаль)

Program massiv;
Uses crt;
var a:array[1..10]of integer; 
i,p:integer; 
begin 
clrscr;
for i:=1 to 10 do begin 
read(a[i]);
end;
writeln; 
p:=1; 
for i:=1 to 10 do begin 
if a[i]<0 then p:=p*a[i]; 
end; 
writeln(p);
readln;
end.