Двумерный массив 7*8 заполнен случайными целыми числами. найти количество и произведение ненулевых элементов. паскаль

begin

 Writeln('*** Исходный массив ***');

 var a := MatrRandom(7, 8, -99, 99);

 a.Println(4); Writeln(4 * a.ColCount * '-');

 var s := a.ElementsByRow.Where(t -> t <> 0);

 Writeln('N = ', s.Count, ', П = ',

     s.Aggregate(BigInteger(1), (p, q)-> p * q))

end.