[lmikle]

Ну и в чем проблема?
Внешним циклом бежим по столбцам.
Внутри первый внутренний цикл считает произведение элементов i-ой строки.
Второй внутренний цикл бежит по элементам столбца и прибавляет полученный результат.

Вроде вот так:

Код:

type
  TSquareMatrix : Array Of Array Of Integer;
  
var
  A, B, C : TSquareMatrix
  
const
  MatrixSize = 10;
  
var
  I, J, M : Integer;
  
begin
  // Init matrices
  SetLength(A,MatrixSize,MatrixSize);
  SetLength(B,MatrixSize,MatrixSize);
  SetLength(C,MatrixSize,MatrixSize);
  
  // Fill A and B by random values 1..10
  Randomize;
  For I := Low(A) To High(A) Do
    For I := Low(A[i]) To High(A[i]) Do
	  Begin
	    A[I,J] := Random(10) + 1;
		B[I,J] := Random(10) + 1;
      End;
	  
  // Create matrix C
  For I := Low(A) To High(A) Do
    Begin
	  M := 1;
	  For J := Low(A[i]) To High(A[i]) Do
	    M := M * B[J,I];
      For J := Low(A[i]) To High(A[i]) Do
	    C[I,J] := A[I,J] + M;
	End;
end;