Среди 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. Весли надо решать с массивами напиши - подправим