Найти сумму положительных и произведение отрицательных элементов - PascalABC.NET

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

Реализовать в виде модуля набор подпрограммы для выполнения следующих действий над элементами одномерного массива: 1) нахождение суммы положительных элементов 2) нахождение произведения отрицательных элементов Найти сумму положительных и произведение отрицательных элементов

Решение задачи: «Найти сумму положительных и произведение отрицательных элементов»

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

unit MyModule;
 
interface
function SumPoz(a: array of integer): integer;
function MulNeg(a: array of integer): integer;
 
implementation
function SumPoz(a: array of integer) := a.Where(v -> v > 0).Sum;
function MulNeg(a: array of integer) := a.Aggregate(1, (x, v) -> v < 0 ? x * v : x);
end.

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

Объявлены две функции: SumPoz и MulNeg.
Функция SumPoz принимает массив целых чисел и возвращает сумму всех положительных элементов массива.
Функция MulNeg принимает массив целых чисел и возвращает произведение всех отрицательных элементов массива.
В функции SumPoz используется метод LINQ Where для фильтрации положительных элементов массива.
В функции MulNeg используется метод LINQ Aggregate для последовательного применения операции умножения к элементам массива с учетом их знака.
Обе функции используют ключевое слово in для обозначения параметра функции.
Обе функции не имеют тела, их реализация будет предоставлена позже.