记录编号	30485	评测结果	AAAAAAAAAA
题目名称	字符串编辑	最终得分	100
用户昵称	11111111	是否通过	通过
代码语言	Pascal	运行时间	0.026 s
提交时间	2011-10-29 16:07:11	内存使用	0.12 MiB

program aa;
var
d,e,i,j,n,m,max:integer;
s:string;
l:array[1..1000]of char;
a,b,c,fei:char;
f1,f2:text;
{*****************************************}
procedure tryI;
var
i,j:integer;
begin
 readln(f1,b,fei,c);
 j:=0;
 for i:=1 to n do
 if l[i]=b then
  j:=i;
 if j<>0 then
 begin
  for i:=n downto j do
   l[i+1]:=l[i];
  l[j]:=c;
  for i:=1 to n+1 do
   write(f2,l[i]);
 end;
end;
{*****************************************}
procedure tryD;
var
 i,j,g:integer;
begin
 readln(f1,b);
 g:=0;
 for i:=1 to n do
 if l[i]=b then
 begin
  for j:=i to n do
  l[j]:=l[j+1];
  g:=1;
  break;
 end;
 if g<>0 then
 for i:=1 to n-1 do
  write(f2,l[i]);
end;
{*****************************************}
procedure tryR;
var
 i,j:integer;
begin
 j:=0;
 readln(f1,b,fei,c);
 for i:=1 to n do
 if l[i]=b then
 begin
  l[i]:=c;
  j:=1;
 end;
 if j=1 then
 for i:=1 to n do
  write(f2,l[i])
 else
  writeln(f2,'error');
end;
{*****************************************}
begin
 assign(f1,'edit.in');
 assign(f2,'edit.out');
 reset(f1);
 rewrite(f2);
 readln(f1,s);
 n:=length(s);
 for i:=1 to n do
  l[i]:=s[i];
 read(f1,a,fei);
 if a='D' then
  tryD
 else
 if a='I' then
  tryI
 else
 if a='R' then
  tryR;
 close(f1);close(f2);
end.