Дана строка
s1:= ' крутой сырой сухой'
Получить строку
s2:= 'крутость сырость сухость'

var
i:integer;S1:string;S2:string;
begin
S1 := 'крутой сырой сухой';
i := Pos('крутой', S1); 
if i > 0 then  Delete(s1, i, 5);  Insert('крутость', S1, i); 
S2:= S1;
writeln(S2);
 end.