Пользователь вводит числа с клавиатуры до тех пор, пока не введет число «0». После

ввода «0» программа выводит на экран количество положительных и отрицательных

введенных чисел.
ВАЖНО: написать программу с использованием цикла while
даю​

program dlb;

var

p,o,n: integer;

 begin

n := 1;

while n <>0 do

 begin

   readln(n);

   if n >0 then

     p := p + 1;

   if n < 0 then

     o := o + 1;  

   end;

writeln('Количество отрицательных чисел: ', o);

writeln('Количество положительных чисел: ', p);

 end.