Ввести с клавиатуры n-любых чисел ,найти количество отрицательных чисел( паскаль )

1.var
2.a, product : real;
3.i, N : integer;
4.begin
5.product:= 1;
6.readln(N);
7.for i := 1 to N do begin
8.readln(a);
9.if a < 0 then
10.:= product*a;
11.end;
12. writeln(product:0:2);