Дан массив Z[1...4,1...3] с целыми элементами. Создать программу с процедурой которая вычислит количество отрицательных чисел и сумму нечетных элементов массива

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!procedure Foo(a:array[,] of integer; var kn:integer; var so:real);begin  var s:=a.ElementsByRow; // последовательность не хранится  kn:=s.Where(t->t<0).Count;  so:=s.Where(t->t.IsOdd).Sumend;begin  var z:=MatrRandomInteger(4,3,-50,50); z.Println(4);  var k:integer;  var s:real;  Foo(z,k,s);  Writeln('Количество отрицательных: ',k);  Writeln('Сумма нечетных по значению: ',s)end.Пример -40  15 -10 -13  37 -13  32 -39  46 -35   0 -43Количество отрицательных: 7Сумма нечетных по значению: -91Замечание: Во избежании разнотолков указывайте, что понимать под нечетным элементом: нечетный по значению, с нечетным индексом (тогда  еще с какого значения начинаются индексы) или нечетный по порядку.