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

Главная часть: в цикле со счетчиком задаем условие - если очередной элемент массива меньше 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]lt;0 then k:=k+1;
writeln(Число отрицательных элементов массива одинаково ,k);
readln
end.