Дан массив из чисел N. Определить каких элементов в массиве больше: отрицательных или положительных

Var a:array[1 ... 1000] of real;

i, n, ko, kp:integer;

begin

write ('Введите количество элементов массива n = ') ; readln (n) ;

for i:=1 to n do

read (a[i]) ;

for i:=1 to n do

write (a[i],' ') ;

ko:=0; kp:=0;

for i:=1 to n do

if a[i]>0 then kp:=kp+1 else if a[i]<0 then ko:=ko+1;

if ko>kp then writeln ('Отрицательных элементов больше чем положительных')

else if ko
else writeln ('Количество положительных и отрицательных элементов равны') ;

end.