为什么不过Pascal？？？？感觉完全没问题啊

const
  dx:array[1..4] of longint=(0,0,1,-1);
  dy:array[1..4] of longint=(-1,1,0,0);
var
  n,m,i,j,ans,t:longint;
  a,dist:array[1..100,1..100] of longint;
function dfs(x,y:longint):longint;
var
  i,max,ans,x1,y1:longint;
begin
  max:=1;
  if dist[i,j]>0 then exit(dist[i,j]);
  for i:=1 to 4 do
  begin
    x1:=x+dx[i];y1:=y+dy[i];
    if (x1>=1)and(x1<=n)and(y1>=1)and(y1<=m)and(a[x1,y1]<a[x,y]) then
    begin
      ans:=dfs(x1,y1)+1;
      if max<ans then max:=ans;
    end;
  end;
  dist[x,y]:=max;
  exit(max);
end;
begin
  read(n,m);
  for i:=1 to n do
    for j:=1 to m do
      read(a[i,j]);
  for i:=1 to n do
    for j:=1 to m do
    begin
      t:=dfs(i,j);
      dist[i,j]:=t;
      if ans<t then ans:=t;
    end;
  write(ans);
end.