Программа которая из текста "я хорошая вычислительная машина" получила бы текст " я хорошая машина"

Var s, s1, s2: string;
begin
writeln ('Введите текст');
readln(s);
delete (s, 3, 6 );
delete (s, 10, 15);
writeln (s); end.