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

var s,ss,s2:string;i:longint;Beginwrite('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.