Решение задачи String 37

#include <bits/stdc++.h>

using namespace std;

int main()
{
    system("chcp 1251");
    string s, s1, s2;
    cin >> s >> s1 >>  s2;
    int pos = s.rfind(s1);
    if(pos + 1){
        s.replace(pos, s1.size(), s2);
    }
    cout << s;
    return 0;
}

program String37;
var
 S,S1,S2,Sm,Sm1,Sm2:string;
 poz:integer;
 
function miror(S:String):String;
var
 i: integer;
 S2:String;
begin
 S2:='';
 for i:=1 to Length(S) do S2:=S2+S[Length(S)-i+1];
 miror:=S2;
end;
 
begin
 Write('S:');
 Readln(S);
 Write('S1:');
 Readln(S1);
 Write('S2:');
 Readln(S2);
 
 Sm:=miror(S);
 Sm1:=miror(S1);
 Sm2:=miror(S2);
 
 poz:=pos(Sm1,Sm);
 
 delete(Sm,poz,length(Sm1));
 insert(Sm2,Sm,poz);
 
 S:=miror(Sm);
 
 Writeln(S);
end.