Изменить расширение файла - PascalABC.NET

Формулировка задачи:

Имеется текстовый документ с текстом программы внутри. Написать программу, которая изменит тип файла с .txt на .pas, после чего запустит программу содержавшуюся в файле. После этого, оба файла сохранить.

Решение задачи: «Изменить расширение файла»

Листинг программы

uses
  System;
const
  txt = 'C:\MyScripts\11.txt';
  pas = 'C:\MyScripts\11.pas';
  exe = 'C:\MyScripts\11.exe';
  cmp = 'C:\Prog\PascalABC.NET\pabcnetc.exe';
begin
  System.IO.File.Copy(txt, pas, True);
  Exec('C:\Prog\PascalABC.NET\pabcnetc.exe', pas + #32 + exe);
  Sleep(10000);
  Exec(exe);
  WriteLn('end.');
end.

Объяснение кода листинга программы

Объявлены константы с именами txt, pas, exe и cmp и значениями соответственно 'C:\MyScripts\11.txt', 'C:\MyScripts\11.pas', 'C:\MyScripts\11.exe' и 'C:\Prog\PascalABC.NET\pabcnetc.exe'.
Выполняется копирование файла с помощью метода Copy класса File из пространства имен System.IO, исходный файл указывается как txt, а целевой файл как pas. В качестве третьего параметра метода Copy используется True, что означает, что файл будет перезаписан, если он уже существует.
Выполняется команда Exec с использованием пространства имен System, передавая в качестве параметров путь к исполняемому файлу 'C:\Prog\PascalABC.NET\pabcnetc.exe' и имя целевого файла, которое получается путем конкатенации строк pas и #32 и exe.
Выполняется задержка в 10 секунд с помощью функции Sleep из пространства имен System, передавая в качестве параметра значение 10000, что эквивалентно 10 секундам.
Выполняется команда Exec с использованием переменной exe в качестве пути к исполняемому файлу.
Выводится строка 'end.' с помощью функции WriteLn из пространства имен System. В данном коде происходит копирование исходного файла txt в файл pas, затем выполняется исполняемый файл с использованием пути, полученного путем конкатенации строк pas и #32 и exe, после чего выполняется задержка в 10 секунд, и, наконец, выполняется команда для файла exe. После выполнения всех команд выводится строка 'end.'.