我自己测输什么都不会RE
附代码：
Program pku1088_sqybi;
Const
  x: Array[1..4]Of Longint = (-1, 0, 1, 0);
  y: Array[1..4]Of Longint = (0, 1, 0, -1);

Var
  d: Array[0..101, 0..101]Of Longint;
  a: Array[1..100, 1..100]Of Longint;
  i, j, r, c, max: Longint;

Procedure f(i, j: Longint);
Var
  k, ii, jj: Longint;
Begin
  If (i = 0) Or (j = 0) Or (i = r + 1) Or (j = c + 1) Then Begin
    d[i, j] := 0;
    Exit;
  End;
  d[i, j] := 1;
  For k:=1 To 4 Do Begin
    ii := i + x[k];
    jj := j + y[k];
    If a[ii, jj] >= a[i, j] Then Continue;
    If d[ii, jj] = -1 Then f(ii, jj);
    If d[i, j] < d[ii, jj] + 1 Then d[i, j] := d[ii, jj] + 1;
  End;
End;

Begin
  ReadLn(r, c);
  For i:=1 To r Do Begin
    For j:=1 To c Do Read(a[i, j]);
    ReadLn;
  End;
  FillChar(d, SizeOf(d), $FF);
  max := -1;
  For i:=1 To r Do
    For j:=1 To c Do Begin
      If d[i, j] = -1 Then f(i, j);
      If d[i, j] > max Then max := d[i, j];
    End;
  WriteLn(max);
End.