Дан массив из 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<kp then writeln('Чаще встречаются положительные числа') else writeln('Количество положительных равно количеству положительных');
end.