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

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

Даны два массива 4х4 из целых чисел. получить новый массив, в котором каждый элемент равен сумме соответствующих элементов из двух данных массивов. полученный массив вывести на экран в виде таблицы. p.s(если не трудно то Ввод массивов, формирование нового массива и вывод массива записать в виде подпрограмм).

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

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

type
arr=array [1..4,1..4] of integer;
 
var arr1,arr2,arr3:arr;
 
procedure readarr(var a:arr);
begin;
  for var i:=1 to 4 do
    for var j:=1 to 4 do
      read(a[i,j]);
end;
 
procedure sumarr(var in1,in2,out1:arr);
begin;
  for var i:=1 to 4 do
    for var j:=1 to 4 do
      out1[i,j]:=in1[i,j]+in2[i,j];
end;
 
procedure writearr(a:arr);
begin;
  for var i:=1 to 4 do begin;
    for var j:=1 to 4 do
      write(a[i,j],' ');
      writeln;
    end;
end;
 
begin;
  readarr(arr1);
  readarr(arr2);
  sumarr(arr1,arr2,arr3);
  writearr(arr3);
end.

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

Объявлены три массива типа arr (arr1, arr2, arr3) размером 4x4.
Есть процедура readarr, которая считывает значения элементов массива с помощью цикла for, который проходит по всем элементам массива (i от 1 до 4 и j от 1 до 4).
Есть процедура sumarr, которая суммирует значения элементов двух входных массивов и записывает результат в выходной массив (out1).
Есть процедура writearr, которая выводит значения элементов массива на экран с помощью цикла for, который проходит по всем элементам массива (i от 1 до 4 и j от 1 до 4).
В основном блоке кода сначала считываются значения элементов массива arr1 с помощью процедуры readarr, затем считываются значения элементов массива arr2, затем выполняется операция сложения с помощью процедуры sumarr, и, наконец, выводятся значения элементов массива arr3 с помощью процедуры writearr.