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

Var s,ss,s2:string;
i:longint;
Begin
write('String: ');
readln(s);
write('Substring: ');
readln(ss);
Write('Replace with: ');
readln(s2);
i:=pos(ss,s);
delete(s,i,length(ss));
insert(s2,s,i);
writeln(s);
end.