程序如下:

var s:ansistring;

n:integer;

c:longint;

procedure fen(l,r:longint);

var i:longint;

begin

i:=(l+r) div 2;

if i1 then

begin

fen(l,i);

fen(i+1,r);

end;

if pos('0',copy(s,l,r-l+1))=0 then write('I')

else if pos('1',copy(s,l,r-l+1))=0 then write('B')

else write('F');

end;

begin

readln(n);

readln(s);

c:=length(s);

if n=0 then

case s[1] of

'0':write('B');

'1':write('I');

end;

fen(1,c);

end.

---|---|---|---|---|---|---|---|---|---|

每次运行就非法操作,FPC退出,

麻烦帮忙看下哪里有问题.

谢...