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

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