строки, помогите, plz Опции

[*(Slim)*]

как написать прогу заменяющую в введенном славе "ab" на "bc"...

[NorthAngel]

Даже ТАКОЕ лень самостоятельно писАть

Код

if pos('ab',s)<>0 then
   begin
      insert('c',s,pos('ab',s)+2);
      delete(s,pos('ab',s),1);
   end;