введите ряд чисел,но как только пользователь вводит -1программа должна сосчитать кол-во четных и нечетныхсделайте программу в паскале

begin
  var a:=ReadSeqIntegerWhile(t->t<>-1).ToArray;
  var k:=a.Where(x->x.IsEven).Count;
  Writeln('Четных чисел ',k,', нечетных ',a.Length-k)
end.


5 12 -3 7 0 12 43 -24 17 -1
Четных чисел 4, нечетных 5