Посчитать количество отрицательных элементов в паскале сделать нужно

Var
  count: integer;
input: real;
begin
count := 0;
input := 1;
while (input <> 0) do
begin
write('Введите число(0 - закончить ввод): ');
read(input);
if(input < 0) then
count := count + 1;
end;
write('Количество отрицательных - ', count);
end.