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

Примерно так

1)Спрашиваем сколько чисел хотят ввести, пусть хотят N.2) Циклом спрашиваем эти N чисел, запоминаем в массив3) Шагаем по массиву, если число отрицательное то умножаем на него.

спасибо огромное

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);