Дан массив целых чисел заполненный в диапазоне от -5 до 15 определить каких чисел больше положительных или отрицательных.

Const n=10;
var a:array[1..n] of integer;
i,cntp,cnto:integer;
begin
  randomize;
  cntp:=0;
  cnto:=0;
  for i:=1 to n do
  begin
    a[i]:=random(21)-5;
    writeln(a[i]);
    if a[i]>=0
      then inc(cntp)
    else inc(cnto);
  end;
  writeln;
  if cntp>cnto
    then writeln('Положительных больше')
    else writeln('Отрицательных больше');
if cntp=cnto
   then writeln('Одинаково');
 end.