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

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

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