Даны натуральные числа n,a1,a2….,an.. Верно ли, что в последовательности больше отрицательных членов, чем положительных — Pascal(Паскаль)

Uses WinCrt;

Var
  i, n, s, j, s1: Integer;
  x: Array [1 .. 100] of Integer;

begin
  Read(n);
  For i := 1 to n do
  Begin
    Read(x[i]);
  End;
  For i := 1 to n do
  Begin
    If x[i] >= 0 Then
    Begin
      Inc(s);
    End
    else
    Begin
      Inc(s1);
    End;
  End;
  If s > s1 Then
  begin
    Write('Положительных чисел больше!');
  End;
  if s1 > s Then
  Begin
    write('Отрицательных членов больше!');
  End;
  If s = s1 Then
  Begin
    Write('Количество отрицательных членов равно количеству положительных!');
  End;

End.