Найти в строке все заданные последовательности символов и заменить их другой последовательностью

[ono_tebe_nado]

Помогите пожалуйста , Найти в строке все заданные последовательности символов и заменить их другой последовательностью.

[newerow1989]

var s,s1,s2:string;
    i,len1:integer;
begin
   Write('s  = '); Readln(s);
   Write('s1 = '); Readln(s1);
   Write('s2 = '); Readln(s2);
   len1:=Length(s1);
   For i:=Length(s) downto 1 do
      If s1=Copy(s,i,len1) then
      begin
         Delete(s,i,len1);
         Insert(s2,s,i);
      end;
   Writeln(s);
   Readln;
end.

С учетом регистров можно посмотреть здесь:
http://newerow1989.narod.ru/publ/zam...henie/1-1-0-24

[Plague]

Не понравится))
Что будет при этих входных данных?

   s:='babbab.babbab.babbab';
   s1:='ba';
   s2:='ab';