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

Var
  mass:array[1..18] of integer;
  j:byte;
  Poz,Neg:byte;
Begin
  Randomize;
  Poz:=0;
  Neg:=0;
  for j:=1 to 18 do
    begin
      mass[j]:=random(100)-50;
      if mass[j]<0 
        then Inc(Neg)
        else Inc(Poz)
    end;
  if Neg=Poz
    then writeln('Equal')
    else 
      if Neg>Poz
        then writeln('Negativ')
        else writeln('Pozitiv')
End.