Лабораторная работа: Процедуры работы с каталогами.

uses crt;
var
cat, s: string;
f, f1: text;
i,k: integer;
begin
clrscr;
{$I-}
repeat;
k:=0;
WriteLn('Input the catalogue name: '); 
ReadLn(cat);
If (copy(cat, 1, 3)<>'D:\') 
then cat:='D:\'+cat;
MkDir(cat);
If (IoResult<>0) then k:=1;
if k=1 then writeLn ('Create directory failed! Please try again…')
else begin
WriteLn('Creating catalogue...');
WriteLn('Done!');
end;
until k=0;
ChDir(cat);
GetDir(4, cat);
WriteLn('Press any key for the next...');
ReadKey;
{$I+}
WriteLn('Active directory: ', cat);
WriteLn('Press any key for the next...');
ReadKey;
WriteLn('Creating the simple text file...');
WriteLn('Done!');
WriteLn('Created file here: ',cat+'\file.txt');
Assign(f, cat+'\file.txt');
ReWrite(f);
WriteLn('Press any key for the next...');
ReadKey;
WriteLn('Recording of the text in a file...'); 
WriteLn('Done!');
WriteLn(f, 'work');
Reset(f);
WriteLn('Press any key for the next...');
ReadKey;
WriteLn('Reading of a file...'); 
WriteLn('Done!');
ReadLn(f, s);
WriteLn('Text in file: ', s);
WriteLn('Press any key for the next...');
ReadKey;
Close(f);
WriteLn('Renaming a file...'); 
WriteLn('Done!');
ReName(f, cat+'\newfile.txt');
WriteLn('Press any key for the next...');
ReadKey;
WriteLn('Creating a new file...');
WriteLn('Copying of the text from the 1st file in the 2nd file...'); 
WriteLn('Done!');
Assign(f1, cat+'\newfile.txt');
Reset(f1);
While not(EOF(f1)) do
begin
ReadLn(f1, s);
Assign(f, cat+'\file1.txt');
ReWrite(f);
WriteLn(f, s);
Close(f);
end;
WriteLn('Press any key for the next...'); 
ReadKey;
WriteLn('Deleting files...'); 
WriteLn('Done!');
Close(f1);
Erase(f1);
Erase(f);
WriteLn('Press any key for the next...'); 
ReadKey;
WriteLn('Deleting catalogue...'); 
WriteLn('Done!');
WriteLn ('The program is over! Press any key for an exit from the program.');
ChDir('D:\');
RmDir(cat);
ReadKey;
End.