Написать программу, которая сделает из слова МОНИТОР слова МОТОР и ТОРТ

begin
  var s:='МОНИТОР';
  Writeln(s[1:3]+s[5:]);
  Writeln(s[5:]+s[5]);
end.