Выяснить, каких элементов в массиве больше: положительных, отрицательных или нулей

/////////////////////
kp:=0; ko:=0; kn:=0;
for i:=1 to n do
if a[i]>0 then kp+=1
else if a[i]<0 then ko+=1
else if a[i]=0 then kn+=1;
if (kp>ko) and (kp>kn) then write('Положительных больше')
else (ko>kp) and (ko>kn) then write('Отрицательных больше')
else (kn>kp) and (kn>ko) then write('Нулей больше');
/////////////////////

begin
  var a:=ArrRandom(ReadInteger('Количество элементов:'),-50,50);
  println('Массив:',a);
  var otr:=a.Where(x -> x<0).Count;
  var pol:=a.Where(x -> x>0).Count;
  var nul:=a.Length-otr-pol;
  if (otr>pol) and (otr>nul) then writeln('Отрицательных больше')
  else if (pol>otr) and (pol>nul) then writeln('Положительных больше')
  else if (nul>pol) and (nul>otr) then writeln('Нулевых больше')
  else if (nul=pol) and (pol=otr) and (otr=pol) then writeln('Поровну')
  else if (pol=otr) and (otr=pol) then writeln('Положительных и отрицательных поровну');
end.

begin
  var a := Arr(1, 2, 3, 0, 4, 0, -1, -2, -3, -4, 0, 0);
  var names := Arr('отрицательных', 'нулевых', 'положительных');
  
  var counts := a.GroupBy(v -> Succ(Sign(v))).Select(g -> (g.Key, g.Count)).OrderByDescending(v -> v[1]);
  var ix := counts.Select(v -> (v[1] = counts.First[1]) ? v : (-1, 0)).Where(v -> v[0] >= 0).Select(v -> v[0]);
  case ix.Count of
  3 : writeln('всех элементов поровну');
  2 : writeln(ix.Select(v -> names[v]).JoinIntoString(' и '), ' поровну и больше, чем ', names[3 - ix.Sum]);
  1 : writeln(names[ix.First], ' больше всех')
  end;
end.

Program ony;
CONST n=1;
Var a,b,c,d:integer;
x: array[1..n] of integer;
BEGIN
a:=Random(1000);
For var i:=1 to n do
begin
a:=0; b:=0; b:=0; 
FOR d:=1 to n do
x[a]:=random(1,10);
IF x[d]>0 then a+=1
ELSE  IF x[d]<0 then b+=1
ELSE  IF x[d]=0 then c+=1;
IF (a>b) and (a>c) then Write('Положительных больше')
ELSE   IF (b>a) and (b>c) then  Write('Отрицательных больше')
ELSE   IF (c>a) and (c>b) then Write('Нулей больше');
end;
END.

Var a,b,c:integer;
x: array[1..100] of integer;
begin
  var n:=ReadlnInteger('Количество элементов =');
  a:=0; b:=0; b:=0; 
  for var i:=1 to n do begin
    x[i]:=-10+random(20); write(x[i],' ');
    if x[i]>0 then a+=1
      else if x[i]<0 then b+=1
        else if x[i]=0 then c+=1;
  end;
  writeln;
  IF (a>b) and (a>c) then Write('Положительных больше')
    ELSE IF (b>a) and (b>c) then Write('Отрицательных больше')
      ELSE IF (c>a) and (c>b) then Write('Нулей больше');
end.

write('Количество элементов = '); readln(n);

Var a,b,c,n:integer;
...
begin
readln(n);
...