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

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