Написать программу подсчёта числа отрицательных элементов массива

Основная часть: в цикле со счетчиком задаем условие - если очередной элемент массива меньше 0, то увеличиваем значение счетчика на 1 (k:=k+1). Последнее значение k подается на печать.

var

A: array [1 ... 100] of real;

k, i, N: integer;

begin

for i:=1 to N do

readln (A[i]);

k:=0;

for i:=1 to N do

if A[i]<0 then k:=k+1;

writeln ('Число отрицательных элементов массива равно ', k);

readln

end.