помогите пожалуйста решить вопрос

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ReadlnString.ToIntegers;
  var n1:=a.Where(t-gt;t.IsOdd).Count;
  var n2:=a.Where(t-gt;t.IsEven).Count;
  if n1gt;n2 Then Writeln('Нечетных больше')
  else
    if n2gt;n1 then Writeln('Четных больше')
    else Writeln('Четных и нечетных поровну')
end.

Пример
23 18 39 -15 27 48 -3 8
Нечетных больше