найти произведение всех элементов массива целых чисел меньших 0 размер массива равен-10

Program n1;

Uses Crt;

var a:array[1 ... 10] of integer;

s, i: integer;

begin

for i:=1 to 10 do begin

a[i]:=random (11) - 5;

writeln (a[i]:4) ;

end;

s:=1;

for i:=1 to 10 do

if (a[i]<0) then s:=s*a[i];

writeln ('Proizvedenie vseh otricat chisel: ', s) ;

end.