Дан массив из n целых чисел. Нужно написать программу определяющую каких элементов больше положительных или отрицательных

[koshakk]

Дан массив из n целых чисел. Нужно написать программу определяющую каких элементов больше положительных или отрицательных. В паскале я ноль(

[ZX Spectrum-128]

Ko:=0;
Kp:=0;
For i:=1 to n do
 Begin
  If a[i]>0 then kp:=kp+1;
  If a[i]<0 then ko:=ko+1;
 End;
If kp>ko then 
  write ('отриц меньше')
Else 
  if kp=ko then 
    write('равно')
  Else 
    write('отриц больше');