Напишите прогу, где осуществляется ввод целых чисел,(ввод осуществляется до тех пор, пока не будет введен 0) и подсчет кол-ва положительных и отрицательных чисел

program qq;
var a,pol,otr:integer;
begin
pol:=0;
otr:=0;
repeat
begin
writeln('Введите число');
read(a);
if a>0 then pol:=pol+1
else otr:=otr+1;
end;
until a=0;
writeln('Положительных чисел - ',pol);
writeln('Отрицательных чисел - ',otr);
end.