СРОООЧНОО... ПОМОГИТЕ...

Составить программу, в которой осуществляется ввод целых чисел, (пока не будет введен ноль) и подсчет количества введенных положительных и отрицательных чисел через оператор while
Очень прошу не соображаю в этой теме прошу помочь хороших людей))

begin

 var n: integer;

 var (CountP, CountN) := (0, 0);

 while True do

 begin

   Read(n);

   if n > 0 then CountP += 1

   else if n < 0 then CountN += 1

   else break

 end;

 Write('Положительных: ', CountP,

 NewLine, 'Отрицательных: ', CountN)

end.