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

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.