Задано N целых чисел.Сколько положительных и отрицательных?Pascal

var n ,a ,pol ,otr :integer;

b := 0;

b1 := 0;

begin write('введите кол-во чисел - ');readln(n);

for i:= 1 to n do

begin write('введите число - '); readln(a);

if (a > 0)

then pol := pol + 1

else otr := otr + 1

end;

write('кол-во положительных чисел = ', pol);

write('кол-во отрицательных чисел = ', otr);

end.