Вматрице y(n,m) подсчитать число положительных и произведение отрицательных элементов матрицы

begin

 var (n, m) := ReadInteger2('Количество строк и столбцов в матрице:');

 Writeln('*** Исходная матрица ***');

 var y := MatrRandom(n, m, -99, 99);

 y.Println(4);

 Writeln(4 * y.ColCount * '-');

 Println('Количество подолжительных элементов:',

     y.ElementsByRow.Where(t -> t > 0).Count);

 Println('Произведение отрицательных элементов:',

     y.ElementsByRow.Where(t -> t < 0)

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

end.