Среди 15 действительных чисел, введенных с клавиатуры, подсчитать количество отрицательных и выдать их на экран

В простейшем виде программка будет такой

var A, i, c : integer;

begin

c:=0;

for i:=1 to 15 do begin

write ('введите число: ') ;

readln (A) ;

if A<0 then c:=c+1;

end;

writeln ('количество отрицательных чисел = ', c) ;

end.

Весли надо решать с массивами напиши - подправим