Даны 10 чисел . составить алгоритм вычисления произведения отрицательных чисел

Var s,i : integer;   
z: array [1..20] of integer;
Beginfor i:= 1 to 11 do
Read (z[i]);s:=1;
for i:= 1 to 11 do
 if z[i]<0 then s:= s*z[i];
Write('symma', s);
end.