В первой строке заменить все вхождения строки 2 на строку 3

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