Дан массив из 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]gt; 0 then kp:=kp+1 else if a[i]lt;0 then ko:=ko+1;
if kogt;kp then writeln('Чаще встречаются отрицательные числа')
else if kolt;kp then writeln('Почаще встречаются положительные числа') else writeln('Количество положительных одинаково количеству положительных');
end.