Составьте программу которая из слова тестирование преобразует слово рисование

Var
    s: string;

begin
    s:='ТЕСТИРОВАНИЕ';
    writeln(s[6]+s[5]+s[3]+s[7]+s[8]+s[9]+s[10]+s[11]+s[12]);
end.