[lmikle]

Ну, примерно, так:

Код:

var
  A, B : Array Of Array Of Integer;

// где-то заполняется массив A

// функция вычисления значения элемента массива B
function GetASum(M,N : Integer) : Integer;
var
  I, J : Integer;
begin
  Result := 0;
  For I := M To N Do
    For J := M To N Do
      Result := Result + A[I,J];
end;

// функция расчета массива B
procedure MakeB;
var
  I, J : Integer;
begin
  For I := Low(B) To High(B) Do
    For J := Low(B) To High(B) Do
      B[I,J] := GetASum(I,J);
end;