Получить число отрицательных членов последовательности (не использовать массивы)

[Dimati87]

Помогите пожалуйста написать программу, зарание благодарен.
Получить число отрицательных членов последовательности
(не использовать массивы)

[начинающий кодер]

For i:=1 to n do begin
readln(x);
if x<0 then inc(k);
end;
write(k);