Вывести все содержащиеся в массиве четные числа в порядке убывания их индексов - PascalABC.NET

Формулировка задачи:

попробовал решить несложную задачку из встроенного задачника: "вывести все содержащиеся в массиве четные числа в порядке убывания их индексов", решил сразу испробовать большую часть богатого функционала и набросал следующее:

begin
 
var a := ArrRandom(10, 0, 9);
println(a);
var b := a.Select((n, i)-> i mod 2 = 0 ? Rec(i, n) : nil).Where(t->t <> nil);
println(b);
var c := b.Sorted.Reverse.Select(n->n.Item2);
println(c);
 
end.

вроде все правильно, а выводит как то странно, и нечетные и четные числа... [6,0,2,6,7,3,0,6,7,8] [(0,6),(2,2),(4,7),(6,0),(8,7)] [7,0,7,2,6]

вспомнил правда про функцию odd и с ней заработало верно, но мне все равно интересно почему через mod неправильно выходит? ведь odd и сам использует mod внутри...

Решение задачи: «Вывести все содержащиеся в массиве четные числа в порядке убывания их индексов»

Листинг программы

var a := ArrRandom(10, 0, 9);
println(a.Where(n -> n mod 2 = 0).Reverse());

Объяснение кода листинга программы

В данном коде используется язык программирования PascalABC.Net. Постановка задачи заключается в выводе всех четных чисел, содержащихся в массиве, в порядке убывания их индексов.

Объявляется переменная a и присваивается ей значение массива ArrRandom(10, 0, 9).
Выполняется действие println, которое выводит на экран результат работы функции Where и Reverse.
Функция Where применяет к каждому элементу массива a условие n -> n mod 2 = 0, т.е. выбирает только четные числа.
Результат работы функции Where передается в функцию Reverse, которая переворачивает порядок элементов.
Результат работы функции Reverse выводится на экран с помощью функции println.