Дан целочисленный массив из 23 элементов. Элементы массива могут принимать значения от 0 до 1000. Опишите алгоритм, который находит и выводит среднее арифметическое всех элементов массива, имеющих нечётное значение. Если таких чисел нет, нужно вывести сообщение ″Таких чисел нет″. Помогите, пж на языке паскаль

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(23,0,1000); a.Println;  var m:=a.Where(t->t.IsOdd).DefaultIfEmpty.Average;  if m=0 then Writeln('Таких чисел нет')  else Writeln(m)end.Пример112 346 634 445 31 804 163 515 466 780 913 41 666 774 422 99 812 684 31 398 836 356 6279.75