Сформировать двумерные массивы и найти произведение чётных элементов - PascalABC.NET

Формулировка задачи:

В основной программе сформировать двумерные массивы a,b и с различных размерностей, с помощью подпрограммы найти в каждом получившемся массиве произведение чётных элементов.

Решение задачи: «Сформировать двумерные массивы и найти произведение чётных элементов»

Листинг программы

type
  matr=array [,] of integer;
var
  a,b,c:matr;
  n,m:integer;
  p:real;
 
procedure creatematrix(var x:matr; n,m:integer);
var
  i,j:integer;
begin
  x := new integer [n,m];
  for i:=0 to n-1 do
    begin
      for j:=0 to m-1 do
        begin
          x[i,j]:=random(10) - (10) div 2;
          write(x[i,j]:4);
        end;
      writeln;
    end;
end;

Объяснение кода листинга программы

Объявлены типы данных: массив matr и переменные a, b, c, n, m, p.
Задана процедура creatematrix, которая принимает на вход ссылку на массив x, а также значения n и m (размеры массива).
В цикле перебираются все строки массива x.
Внутри цикла перебираются все столбцы массива x.
В каждой ячейке массива x генерируется случайное число от 0 до 9 (включительно), затем оно уменьшается на 5 и округляется до ближайшего целого числа (это будет чётное число с вероятностью 1/2).
Сгенерированное число записывается в ячейку x[i,j].
Сгенерированное число выводится в консоль (для наглядности).
После завершения внутренних циклов, выводится символ новой строки.
После завершения внешнего цикла, выводится символ новой строки.
Выполняется 4 действия, начиная с 3 и заканчивая 6.
Завершается выполнение процедуры creatematrix.
Задаются значения переменных n и m (размеры массива).
Создается массив a размером n x m.
Запускается процедура creatematrix, передавая ей на вход ссылку на массив a и значения n и m.
Выполняются действия с 3 по 8.
Выводится сообщение Введите произведение чётных элементов:.
Пользователь вводит значение переменной p.
Программа завершается.