我用了 ansistring，pprr也考虑了。。

帮忙看看啊，，救命啊/。。

var

n,i,rp,t,tt,max,cow:longint;

name:array[0..3000] of ansistring;

s,s1:ansistring;

begin

readln(n);

for i:=1 to n do

begin

rp:=0;

readln(name[i]);

s:=name[i];

if pos('reioxzsj',s)0 then

begin

while pos('woc',s)0 do

begin

t:=pos('woc',s);

delete(s,t,3);

insert('drib',s,t);

end;

s1:=s;

while pos('r',s1)0 do

begin

t:=pos('r',s1);

delete(s1,t,1);

rp:=rp+5;

end;

while pos('p',s1)0 do

begin

t:=pos('p',s1);

delete(s1,t,1);

rp:=rp+5;

end;

while pos('pr',s)0 do

begin

t:=pos('pr',s);

if t=tt-1 then rp:=rp-20;

tt:=t;

delete(s,t,2);

rp:=rp+20;

end;

end;

if rp>max then

begin

max:=rp;

cow:=i;

end;

end;

writeln(name[cow]);

write(max);

end.

这是什么状况。。

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案错误...　├ 标准行输出 ixi...

　├ 错误行输出 205

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

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

Unaccepted 有效得分：95 有效耗时：0ms