С клавиатуры вводятся вещественные числа. Признак конца ввода – 0. Определить количество отрицательных и положительных чисел — Pascal(Паскаль)

uses crt;

var
  i, o, p: integer;

begin
  clrscr;
  writeln('vvedite chisla');
  while (true) do
  begin
    readln(i);
    if i <> 0 then
    begin
      if i < 0 then
        inc(o);
      if i > 0 then
        inc(p);
    end
    else
      break;
  end;
  writeln('kollichestvo otricatelnih chisel = ', o);
  writeln('kollichestvo polozhitelnih chisel = ', p);
  readln;

end.