[lmikle]

А почему именно 3х3???

Примерно так будет сложение:

Код:

procedure MatrixCheckSize(A, B, C : Array Of Integer);
var
  I : Integer;
begin
  // Простая проверка по первой размерности
  If (Length(A) <> Length(B)) Or (Length(B) <> Length(C)) Then
    Raise Exception.Create('Матрицы разного размера.');

  // Проверка по второму размеру
  For I := Low(A) To High(A) Do
    If (Length(A[i]) <> Length(B[i])) Or (Length(B[i]) <> Length(C[i])) Then
      Raise Exception.Create('Матрицы разного размера.');
end;

procedure MatrixAdd(A, B : Array Of Integer; var C : Array Of Integer);
var
  I, J : Integer;
begin
  MatrixCheckSize(A,B,C);
  For I := Low(A) To High(A) Do
    For J := Low(A[i]) To High(A[i]) Do
      C[I,J] := A[I,J] + B[I,J];
end;