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

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