Строки. Заменить в строке S все вхождения строки S1 на строку S2

uses crt;
var p:integer;                //переменная для позиции вхождения подстроки в строку
    s,s1,s2:string;
begin
   write('S='); readln(s);   //запрашиваем строки и считываем в память
   write('S1='); readln(s1);
   write('S2='); readln(s2);
   while pos(s1,s)>0 do      //в цикле с предусловием до тех пор, пока позиция подстроки в строке больше 0 (то есть подстрока в строке есть)
      begin                  //выполняем следующее
         p:=pos(s1,s);      //переменной присваеваем позицию вхождения подстроки в строку (т.е. первый символ, от которого начинается подстрока в строке)
         delete(s,p,length(s1));   //удаляем из исходной строки с позиции вхождения подстроки столько символов, сколько в подстроке (определяем с помощью функции определения длины строки)
         insert(s2,s,p);     //вставляем  новую подстроку в данную строку с той же позиции
      end;
   writeln('S=',s);          //вывод на экран
end.

uses crt;
var p:integer;                //переменная для позиции вхождения подстроки в строку
    s,s1,s2:string;
begin
   write('S='); readln(s);   //запрашиваем строки и считываем в память
   write('S1='); readln(s1);
   write('S2='); readln(s2);
   while pos(s1,s)>0 do      //в цикле с предусловием до тех пор, пока позиция подстроки в строке больше 0 (то есть подстрока в строке есть)
      begin                  //выполняем следующее
         p:=pos(s1,s);      //переменной присваеваем позицию вхождения подстроки в строку (т.е. первый символ, от которого начинается подстрока в строке)
         delete(s,p,length(s1));   //удаляем из исходной строки с позиции вхождения подстроки столько символов, сколько в подстроке (определяем с помощью функции определения длины строки)
         insert(s2,s,p);     //вставляем  новую подстроку в данную строку с той же позиции
      end;
   writeln('S=',s);          //вывод на экран
end.

uses crt;
var i:integer;                //переменная для позиции вхождения подстроки в строку
    s,s1,s2:string;
begin
   write('S='); readln(s);   //запрашиваем строки и считываем в память
   write('S1='); readln(s1);
   write('S2='); readln(s2);
    for i:=length(s) downto 1 do          //перебираем в цикле с параметром символы строки от последнего до первого
        if copy(s,i,length(s1))=s1 then    //если скопированная часть с текущего символа размером в строку s1 совпадает со строкой s1
           begin
           delete(s,i,length(s1));         //удаляем  из строки кусок, равный по длине s1
           insert(s2,s,i);                 //и в то же место вставляем s2
           end;
   writeln('S=',s);          //вывод на экран
end.