[lmikle]

Хм, а в чем проблема?

Код:

procedure FindMinMax(A : Array Of Array Of Integer; var iMin, iMax : Integer);
var
  I, J : Integer;
begin
  iMin := A[Low(A),Low(A[Low(A)]]);
  iMax := iMin;

  For I := Low(A) To High(A) Do
    For J := Low(A[i]) To High(A[i]) Do
      Begin
        If (A[I,J] < iMin) Then iMin := A[I,J];
        If (A[I,J] > iMax) Then iMax := A[I,J];
      End;
end;