Создать одномерный массив из 18 элементов. Каких чисел в последовательности больше: отрицательных или положительных — Pascal(Паскаль)

const
n=18;
var
i,o,p:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do
  begin
      a[i]:=15-random(20);
      write(' ',a[i]:3);
  end;
writeln();
writeln('-------');
p:=0;o:=0;
for i := 1 to 18 do
  begin
    if a[i] > 0 then
      p := p + 1
    else if a[i] < 0 then
      o := o + 1;
  end;
 
if p = o then
  writeln('положительный и отрицательных чисел одинаковое количество')
else if p > o then
  writeln('положительный чисел больше')
else 
  writeln('отрицательных чисел больше');

writeln('-------');

for i:=1 to n do
  write(' ',a[i]:3);
writeln();
end.