2楼放

var
d,t:text;
s:string;
i,l:longint;
begin
assign(d,'c:/b.txt');
reset(d);
assign(t,'c:/g.txt');
rewrite(t);
read(d,s);
l:=length(s);
i:=0;
repeat
i:=i+1;
while s[i]<>'(' do begin
write(t,s[i]);
i:=i+1;
end;
while s[i]<>')' do i:=i+1;
i:=i+1;
until i=l;
close(d);
close(t);
end.

这程序是将文件d中的东西去掉括号以及括号中间的内容，然后写入t中，但老是错误201。求解！！