我在自己机器上运行对,为什么提交就出现216错误呢

[lwqyll]

我在做zju上的1499题时,在本机运行测试数据都通过,一提交却是216错误.郁闷死了.下面是我的程序.求助

program p1499(Input,Output);
var inp:string[80];//输入数据
var s:array[0..80,0..80] of string[80];//s[i,j]表示前i个数形成的递增序列中,最后一个数占j位,对应的最后一个数
var f:array[0..80,0..80] of integer;//f[i,j]表示前i个数形成的递增序列中,最后一个数占j位.倒数第二个数的位数
var i,j,k,leng:integer;
var result:string;//输出结果

function min(x,y:integer):integer;//求最小值
begin
if x<y then min:=x
else min:=y;
end;

procedure prepare(source:string[80]);//求所有的s[i,j]值
var i,j,len:integer;
begin
fillchar(s,sizeof(s),0);
len:=length(source);
leng:=len;
for i:=1 to len do
s[i,0]:='';
for i:=1 to len do
for j:= 1 to len do
s[i,j]:=source[i-j+1]+s[i,j-1];
end;

function compare(s1,s2:string[80]):boolean;//按照数值大小比较两个字符串的大小
var i,j,len1,len2:integer;
procedure add(l:integer;var s:string[80]);
var k:integer;
begin
for k:=1 to l do
s:='0'+s;
end;
begin
len1:=length(s1);
len2:=length(s2);
if len1<len2 then add(len2-len1,s1)
else if len1>len2 then add(len1-len2,s2);
if s1=s2 then begin compare:=false;exit;end

else
begin
for i:=1 to len1 do
if ord(s1[i])>ord(s2[i]) then begin compare:=true;exit;end
else if ord(s1[i])<ord(s2[i]) then begin compare:=false;exit;end
end;
end;



procedure print2(i,x:integer);
begin
if f[i,x]>0 then print2(i-x,f[i,x]);
result:=result+s[i,x]+',';
end;

procedure dp;
var mindata,i,j,k:integer;
begin
fillchar(f,sizeof(f),255);

for i:=1 to leng do
for j:=1 to i do
begin
if (j=i) and compare(s[i,i],'0') then f[i,j]:=0
else
for k:=1 to min(j,i-j) do
if (f[i-j,k]>=0) and compare(s[i,j],s[i-j,k]) and (k>f[i,j]) then f[i,j]:=k;
end;
for i:=1 to leng do
if f[leng,i]>=0 then begin mindata:=i;break;end;
print2(leng,mindata);
end;
procedure getdata;//读入数据
begin
readln(inp);
while not((length(inp)=1) and (inp[1]='0')) do
begin
prepare(inp);
result:='';
dp;
delete(result,length(result),1);
writeln(result);
readln(inp);
end;
end;

begin
getdata;
end.