Переписать в новый целочисленный массив B все четные числа из исходного массива (в том же порядке) - PascalABC.NET

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

1. Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B все четные числа из исходного массива (в том же порядке) и вывести размер полученного массива B и его содержимое.

Решение задачи: «Переписать в новый целочисленный массив B все четные числа из исходного массива (в том же порядке)»

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

var a := new integer[10](53,65,498,745,25,68,89,987,254,648);
begin
  var b := a.Where(x -> not odd(x)).ToArray();
  writeln('size = ', Length(b), ' ; b = ', b);
end.

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

В данном коде:

Создается новый целочисленный массив a размером 10 с заданными значениями (53, 65, 498, 745, 25, 68, 89, 987, 254, 648).
Выполняется код, который переписывает в новый массив b все четные числа из массива a в том же порядке.
Выводится размер массива b и его содержимое. Получается следующий список:
Создание массива a
Фильтрация массива a и сохранение четных чисел в массив b
Вывод информации о массиве b Номер по порядку: 1