Дана строка 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.