vijos p1011清帝之惑之顺治 我的程序错在哪里？

program p1011;
const
x:array[1..4]of integer=(1,-1,0,0);
y:array[1..4]of integer=(0,0,1,-1);
var
a:array[0..501,0..501] of longint;
len:array[0..501,0..501] of longint;
i,j,r,c,maxh:longint;
function sum(i,j:integer):longint;
var
k,max:integer;
begin
max:=1;
if len[i,j]<>0 then sum:=len[i,j]
else
begin
for k:=1 to 4 do
if (a[i+x[k]][j+y[k]]<a[i,j]) and ((i+x[k])>0) and ((i+x[k])<=c) and
((j+y[k])>0) and ((j+y[k])<=r) then
if max<sum(i+x[k],j+y[k])+1
then max:=sum(i+x[k],j+y[k])+1;
sum:=max;
end;
end;
begin
read(r,c);
for i:=1 to r do
for j:=1 to c do
begin
read(a[i,j]);
len[i,j]:=0;
end;
for i:=1 to r do
for j:=1 to c do
len[i,j]:=sum(i,j);
for i:=1 to r do
for j:=1 to c do

vijos帮帮忙 全排列VIJOS 关于vijos锁定 vijos为什么总被黑？ 长清之歌 有谁看了百家讲坛--清十二帝疑案之道光 知道www.vijos.cn的速来 清虚之脏中“清虚”是什么意思啊 百家讲坛清十二帝疑案之清朝皇帝后宫中讲述后宫制度时的背景音乐 清平调三首之三