var
str : string;
i : integer;
begin
str := 'Today-is-terrible!';
for i := 7 to 11 do
if str = '-' then str[i - 1] := 'x';
for i := 13 downto 1 do
if str = 't' then str[i + 1] := 'e';
writeln(str);
end.

输出：Today-ix-terrible!