Даны четыре одномерных массива A, B, C, D, сформировать новый массив из сумм элементов каждого массива - Turbo Pascal

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

а подскажите пожалуй программу для "даны четыре одномерных массива A, B, C, D, сформировать новый массив из сумм элементов каждого массива.При этом массивы заполняются в ручную пользователем"

Решение задачи: «Даны четыре одномерных массива A, B, C, D, сформировать новый массив из сумм элементов каждого массива»

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

const
  n=20;
  m=4;
procedure Inp(a:char;var d:integer);
  var
    b,c:integer;
  begin
    d:=0;
    for c:=1 to n do
      begin
        write('Enter ',a,'[',c:2,']:=');
        readln(b);
        d:=d+b
      end
  end;
var
  z:array[1..m]of integer;
  i:integer;
begin
  for i:=1 to m do
    Inp(chr(ord('@')+i),z[i]);
  write('Result:');
  for i:=1 to m do
    write(z[i]:6);
end.

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

Данный код написан на языке Turbo Pascal и выполняет следующие действия:

Объявляются две константы: n и m. Переменная n инициализируется значением 20, а переменная m инициализируется значением 4.
Создается процедура Inp, которая принимает на вход символ и переменную типа integer. Внутри процедуры инициализируется переменная d значением 0. Затем происходит цикл for, который выполняется n раз (где n - значение переменной n). Внутри цикла считывается символ с помощью функции readln и сохраняется в переменной b. Значение b добавляется к переменной d.
Создается переменная z, которая представляет собой массив типа integer, и инициализируется значением 0.
Запускается цикл for, который выполняется m раз (где m - значение переменной m). Внутри цикла вызывается процедура Inp, передавая в нее символ, соответствующий текущему индексу переменной i, и переменную z[i]. Считанное значение сохраняется в переменной d.
После завершения цикла выводится сообщение Result: и выполняется цикл for, который выводит значения переменной z[i] (где i - значение переменной i) на экран. Таким образом, данный код позволяет сформировать новый массив из сумм элементов каждого из четырех исходных массивов A, B, C и D.