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

#include <bits/stdc++.h>

using namespace std;

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

program String34;
var
 S,S0,S2,S02: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('S0:');
 Readln(S0);
 
 S2:=miror(S);//делаем зеркальную строку
 S02:=miror(S0); //делаем зеркальным исходное значение
 
 poz:=pos(S02,S2);                          //Ищем в развёрнутой строке перовое вхождение развёрнутого значения
 if poz<>0 then delete(S2,poz,length(S02)); //Удаляем найденное
 
 
 S:=miror(S2); // делаем строку ещё раз зеркальной и тем самым возвращаем прежний вид
 
 Writeln(S);
end.