Как копировать и перемещать файлы

{$M 2048, 0, 0} {устанавливаем размер стека}
program cutfile;
uses
 DOS; {подключаем модуль DOS}
var
 path: PathStr;{полное имя исходного файла}
 dir_new: DirStr;{директория куда копируется файл}
begin
 write('Vvedite polnoe im9 kopiruemogo faila: ');
 readln(path); {считываем полное имя}
 write('Vvedite directoriu, v kotoruiu nado ckopirovat'' fail: ');
 readln(dir_new);{считываем директорию}
 swapvectors;{обмениваем содержимое векторов прерывания с переменными SAVEINTXX} 
 exec('C:\WINDOWS\system32\cmd.exe','/C attrib -h -r -a ' + path);{снимаем атрибуты файла (скрытые/системные и только для чтения)}
 exec('C:\WINDOWS\system32\cmd.exe','/C copy '+ path+ ' '+ dir_new);
{запускаем cmd.exe и передаем ему параметры: команду копировать+имя файла+новая директория}
 exec('C:\WINDOWS\system32\cmd.exe','/C del '+ path);{запускаем cmd.exe с командой удаления и путем к первичному файлу} 
 swapvectors;
 readln;
end.
 

exec('C:\WINDOWS\system32\cmd.exe','/C del '+ path);