Пусть 30 чисел водятся по одному. определить что больше, количество положительных или количество отрицательных чисел. на паскале

begin

pol:=0;

otr:=0;

for i:=1 to n do begin

  readln (a[i]);

  if a[i]>0 then pol:=pol+1;

  if a[i]<0 then otr:=otr+1

end;

if pol<otr then writeln('больше отрицательных')

   else if pol=otr then writeln('одинаково')

              else writeln('больше положительных')

end.