Дан массив из n целых чисел.Выяснить,какое число встречается в массиве чаще-положительное или отрицательное.

VAR a:array[1..1000] of integer; n,i,kp,ko:integer; begin randomize; write('Введите количество элементов массива n='); readln(n); for i:=1 to n do begin a[i]:=random (100)-50; write(a[i],' '); end; 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