Помогите разобраться с МАТРИЦЕЙ! Опции

[MSDDV]

В общем, запарка моя состоит вот в чём:
Даны две квадратные матрицы А и В нужно получить новую матрицу С
Прибавлением к элементам каждого столбца первой матрицы произведения элементов соответствующих строк второй матрицы.
То есть искомая квадратная матрица из 3 строк и столбцов должна состоять из 9-ти элементов полученных таким способом:

С [1,1] = (B [1,1] + B [1,2] + B [1,3]) + A [1,1];
С [1,2] = (B [1,1] + B [1,2] + B [1,3]) + A [1,2];
C [1,3] = (B [1,1] + B [1,2] + B [1,3]) + A [1,3];
С [2,1] = (B [2,1] + B [2,2] + B [2,3]) + A [2,1];
С [2,2] = (B [2,1] + B [2,2] + B [2,3]) + A [2,2];
С [2,3] = (B [2,1] + B [2,2] + B [2,3]) + A [2,3];
С [3,1] = (B [3,1] + B [3,2] + B [3,3]) + A [3,1];
С [3,2] = (B [3,1] + B [3,2] + B [3,3]) + A [3,2];
С [3,3] = (B [3,1] + B [3,2] + B [3,3]) + A [3,3];

Но дело в том, что размерность матрицы задаёт пользователь и вычисление элементов искомой матрицы должно происходить в двух циклах for.
Блин уже 2 дня сижу :fire: и не могу придумать ничего дельно, кто знает, как это осуществить выложите, пожалуйста, код может, кто уже встречался……..

[volvo]

for i := 1 to n do begin
  s := 0;
  for j := 1 to n do s := s + b[i, j];
  for j := 1 to n do c[i, j] := s + a[i, j];
end;

[MSDDV]

Блин как всё просто а я чуть голову не сломал СПАСИБО!