Составить программу, которая выводит с клавиатуры произвольную числовую матрицу А размером 4*4 - Turbo Pascal (29965)

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

Составить программу, которая вводит с клавиатуры произвольную числовую матрицу A размером 4х4. Построить по ней матрицу B тех же размеров, используя функцию, согласно которой элементы B[i,j] этой матрицы находятся как суммы элементов матрицы A, схематически изображенных на отрезках, исходящих из элемента A[i,j] рисунка.

Нужна только вторая задача, но что бы не переписывать условие вставляю так ЗАДАЧА 2

Выполнить задание предыдущей задачи 1, заменив функцию процедурой и используя модуль, содержащий эту процедуру для вычисления элементов матрицы B.

Решение задачи: «Составить программу, которая выводит с клавиатуры произвольную числовую матрицу А размером 4*4»

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

uses crt;
var A,B:array[1..4,1..4] of integer;
i,j, k, S:integer;
begin
  for i:=1 to 4 do
    begin
    for j:=1 to 4 do
      begin
        write('Введите ','A[',i,',',j,']');
        readln(A[i,j]);
      end;
    end;
  writeln;
  writeln('Числовая матрица A:');
  for i:=1 to 4 do
    begin
      for j:=1 to 4 do write(A[i,j]:10);
      writeln;
    end;
  writeln;
  writeln('Числовая матрица B:');
  for i:=1 to 4 do
    begin
    for j:=1 to 4 do
      begin
        B[i,j]:=0;
        for k:=i to 4 do
          B[i,j]:=B[i,j]+ A[k,j];
        for k:=1 to j do
          B[i,j]:=B[i,j]+ A[i,k];
        write(B[i,j]:10);
      end;
      writeln;
    end;
end.

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

Создается переменная A, которая является массивом целых чисел размером 4x4.
Создается переменная B, которая также является массивом целых чисел размером 4x4.
Запускается цикл for i := 1 до 4.
Внутри цикла запускается еще один цикл for j := 1 до 4.
Внутри второго цикла выводится сообщение «Введите A[», i, ',', j, ']» и считывается значение переменной A[i,j].
Выводится сообщение «Числовая матрица A:».
Запускается еще один цикл for i := 1 до 4.
Внутри цикла выводится значение каждой ячейки матрицы A[i,j] с помощью функции write.
Выводится символ новой строки.
Выводится сообщение «Числовая матрица B:».
Запускается еще один цикл for i := 1 до 4.
Внутри цикла вычисляется сумма элементов матрицы A[i,j] и B[i,j].
Выводится значение каждой ячейки матрицы B[i,j] с помощью функции write.
Выводится символ новой строки.
Цикл завершается.