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

Если программка нужна на паскале, то вот держите

program ArrayZ;
uses CRT; // Подключение модуля CRT
var  z: array[1..4, 1..3] of integer; // Массив  i, j, n, o: integer;// Переменные для циклов и счета отрицательных и нечетных частей
begin  randomize; // Необходимо для turbopascal  // Наполнение массива  for i := 1 to 4 do  begin    writeln; // Переход на иную строчку    for j := 1 to 3 do    begin      z[i, j] := random(60) - 30; // Рандомное наполнение массива      write(z[i, j]:8); // Вывод в консоль массива    end;  end;  // Нахождение отрицательных и нечетных частей  for i := 1 to 4 do    for j := 1 to 3 do    begin      if z[i, j] mod 2 lt;gt; 0 then // Нахождение нечетных элементов        n := n + 1;      if z[i, j] lt; 0 then // Нахождение отрицательных элементов        o := o + 1;    end;   writeln; // Переход строки чтобы не было конфликтов  writeln('Нечетных элементов: ', n, ' Отрицательных частей: ', o); // Вывод результатаend.