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