free pascal 的216错误 下面是我的程序 我的FP说216出错 可我找不到 各位 帮帮忙吧。。。。。。。。。。。

var
i,j,k,n,m,tot,t,s:longint;
a:array[0..10000] of longint;
b:array[0..100,0..10000] of longint;
ok:boolean;
begin
readln(n,m);
s:=n;
repeat
inc(tot);
a[tot]:=s mod 10;
s:=s div 10;
until s=0;
for i:=1 to m do begin inc(s); b[1,s]:=a[i];end;
tot:=1;
repeat
ok:=true;
inc(tot);
for i:=1 to m do b[tot,i]:畅长扳短殖的帮痊爆花=b[tot,i]*n;
for i:=1 to m do if b[tot,i]>10 then begin b[tot,i+1]:=b[tot,i+1]+b[tot,i] div 10;b[tot,i]:=b[tot,i] mod 10; end;
for i:=1 to tot-1 do
for j:=i+1 to tot do
for k:=1 to m do if b[i,k]b[j,k] then ok:=false;
until ok=true;
writeln(tot);
end.

一般我们在windows环境下打开pas文件都是通过以记事本的打开方式打开的，也在windows下直接能修改，如果你想打开后进入free pascal，就需要先运行free p畅长扳短殖的帮痊爆花ascal，在里面读取程序

只有文字版的 http://www.zjtg.cn/itjs/pascal/default.asp

216错误，如上楼所说，具体就是你的程序对应有些数据出现死循环，然后变量tot无限增加，溢出。你的程序很有趣（说的是你的编程风格）：读入n，b[1,1..m]收入变量n的后m位数，然后到repeat循环……问题在循环，第19行，数组初始值为0，也就是说b[2,1]以后的数都为零；第24行判断有XXX继续循环（略，会P的人看得懂）总之，输入的长整n如果后m位有非0数的话可能就有216错误，否则输出都是2。我编译时会出现个253错误，汗，我用的是2.2.4。 我不知道原题，想继续问下去你就发题目

不知道你这个程序的含义,建议发题目. 然后我自己测试发现都是201错误..没有发现216错误 216错误是一般保护性错误,这种情况一般出现在开了一个很大的数组,然后这个数组已经超出内存限制了,但是编译时不会警告,当你存取时,如果存取的数组单元是"超出内存"的那些不存在部分,就会产生存取非法. 但是看你的程序又不至于产生这个问题,除非你用TP,内存才可能不够.