Подсчитать количество вводимых положительных и отрицательных чисел. Операцию ввода повторить 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 считается положительным в этой программе