[lmikle]

Ну и дипломы у вас...
Элементарные задачи на циклы.

Код:

procedure UpdateArray(var A : Array Of Integer);
var
  I, Idx : Integer;
begin
  Idx := Low(A);
  For I := Low(A) To High(A) Do
    If A[i] > A[Idx] Then Idx := I;
  A[Idx] := 0;
end;

function IsArraysEqual(A, B : Array Of Array Of Integer) : Boolean;
var
  I, J : Integer;
begin
  // Проверяем размерности массивов
  Result := (Length(A) = Length(B)) And 
               (Length(A[Low(A)]) = Length(B[Low(B)]));

  // Проверяем соджержимое массивов
  If Result Then
    For I := Low(A) To High(A) Do
      For J := Low(A[i]) To High(A[i]) Do
        Begin
          Result := A[I,J] = B[I,J];
          If Not Result Then Break;
        End;
end;