Подсчитать количество вводимых положительных и отрицательных чисел. операцию ввода повторить 12 раз. turbo poscal

Var pc, oc, x, i : longint;
begin
oc := 0; pc := 0;
for i := 1 to 12 do begin
readln(x);
if (x < 0) then oc := oc + 1
else pc := pc + 1;
end;
writeln('Положительные:'); writeln(pc); writeln('Отрицательные:'); writeln(oc);
readln(x);
end.

P.S. 0 считается положительным в этой программе