Найти с помощью процедуры матрицу C=A+B - Pascal

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

2) Ввести две квадратные матрицы A и B. Ввод оформить в виде процедуры. Найти с помощью процедуры матрицу C=A+B. Вывести матрицу С на экран.

Решение задачи: «Найти с помощью процедуры матрицу C=A+B»

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

program pr;
 
const
  Csize = 100;
 
type
  arr = array [1..Csize, 1..Csize] of integer;
 
var
  a, b, c: arr;
  n, m, i, j: integer;
 
procedure fill(var x: arr; const c, f: integer);     // процедура ввода
var
  i, j: integer;
begin
  for i := 1 to c do
    for j := 1 to f do
      x[i, j] := random(21);          // заполнение рандомными числами от 0 до 20 (если должен вводить пользователь, то меняем эту строчку на : readln(x[i,j]);
end;
 
procedure show(x: arr; const c, f: integer);     // процедура вывода 
var
  i, j: integer;
begin
  for i := 1 to c do
  begin
    for j := 1 to f do
      write(x[i, j]:3);
    writeln;
  end;
end;
 
begin
  writeln('Введите размеры матрицы A');
  readln(n, m);
  fill(a, n, m);
  show(a, n, m);
  writeln('Введите размеры матрицы B');
  readln(n, m);
  fill(b, n, m);
  show(b, n, m);
  writeln('Массив c:');                // сложение
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      c[i, j] := a[i, j] + b[i, j];
    end;
  end;
  show(c, n, m);
end.

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

Объявляются константа Csize со значением 100 и тип arr для двумерного массива размера Csize х Csize с элементами целого типа.
Объявляются переменные a, b, c, n, m, i, j всех целого типа. Массивы a, b, c будут использоваться для хранения матриц, а n и m будут использоваться для хранения размеров матриц.
Создается процедура fill, которая заполняет переданный массив случайными числами от 0 до 20. Переменные c и f указывают количество строк и столбцов соответственно.
Создается процедура show для вывода массива. Она печатает элементы массива, используя форматированный вывод.
Запрашиваются размеры матрицы A и заполняется массив a случайными числами.
Выводится массив a.
Запрашиваются размеры матрицы B и заполняется массив b случайными числами.
Выводится массив b.
Создается новый массив c, в который записывается сумма соответствующих элементов из массивов a и b в цикле.
Выводится массив c.