Прочитать массив из 10 элементов и написать каких элементов больше четных или нечетных. ( На Паскале)

// PascalABC.NET // Версия 3.3.5 сборка 1662 (29.04.2018)begin  var m := ReadArrInteger(10);  var (o, e) := (m.Where(t -> t.IsOdd).Count, m.Where(t -> t.IsEven).Count);  Println(o > e ? 'Нечетных больше' : o = e ? 'Поровну' : 'Четных больше');end.Пример:1 2 3 4 5 6 7 8 10 10Четных больше