Помогите пожалуйста составить программу в паскаль.
Дана последовательность из 10 чисел (2,3,-15,4.4,0,-3.2,3,25,-5,0). Найти произведение положительных элементов и количество отрицательных элементов.

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=Arr(2.0,3.0,-15.0,4.4,0.0,-3.2,3.0,25.0,-5.0,0.0);  a.Println;  Writeln('Произведение положительных= ',      a.Where(t->t>0).Aggregate(1.0,(x,y)->x*y));  Writeln('Количество отрицательных= ',a.Where(t->t<0).Count) end.Результат2 3 -15 4.4 0 -3.2 3 25 -5 0Произведение положительных= 1980Количество отрицательных= 3