Решите задачку! Дана последовательность чисел заканчивающихся на 0 ,посчитать количество

program raf105;

var a,x,y:integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтоб окончить введите 0');

a:=1;

while alt;gt;0 do

begin

 readln(a);

 if agt;0

   then x:= x+1;

 if alt;0

   then y:= y+1;

end;

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

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

end.

Программка написана на языке PascalABC