СРОЧНО!!!в массиве 8 элементов напишите программу которая находит сумму положительнух чмсел и кол во чисел =0

begin
  var a:=ArrRandom(8,-9,9); a.Println;
  Writeln('Сумма положительных ',a.Where(t->t>0).Sum);
  Writeln('Количество нулей ',a.Where(t->t=0).Count)
end.


2 6 -6 7 0 2 3 6
Сумма положительных 26
Количество нулей 1