Даны 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]lt;0 then s:= s*z[i];
Write(symma, s);
end.