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

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