Программа создания файлов заполнения

 Program File_of_Fill_Set {Создание файла заполнения};
 Uses
   Windows;
   {Детерминирует базовые процедуры работы с файлами}
 Type
   Fill = File of Byte;
   {Тип файла замещения обеспечивает его побайтное увеличение}
   File_Name_T : String [8];
   {Тип полного имени файла замещения}
   File_Number_S_T : String [3];
   {Тип размера файла замещения в строчном виде}
 Const
   Cluster_Size = 32;
   {Размер кластера в килобайтах}
   File_Sise = 1;
   {Размер файла замещения в кластерах}
   File_Amount = 1;
   {Количество файлов замещения}
   Symbol : Byte = 255;
   {В качестве заполняющего символа используем максимальное значение одного байта}
 Var 
   File_Name: File_Name_T;
   {Полное имя файла замещения}
   File_Number : Integer;
   {Номер файла замещения}
   File_Number_S: File_Number_S_T;
   {Номер файла замещения в строчном виде}
   Cluster_Number: Integer;
   {Циклическая переменная — номер кластера в файле замещения}
   Byte_Number : Integer;
   {Циклическая переменная — номер байта в кластере}
   File_Fill: Fill;
   {Файл замещения}
 Begin
   For File_Number := 1 to File_Amount
   {Цикл по числу файлов замещения}
    Begin
      File_Name := 'FFile';
      {Задаем первую часть имени файла замещения}
      Str (File_Number; File_Number_S);
      {Преобразуем в строку номер файла замещения}
      Insert (File_Number_S, Fime_Name, 6);
      {Дополняем имя файла замещения его номером}
      Assign (File_Fill, File_Name);
      Rewrite (File_Fill);
      {Открываем файл замещения на запись}
      For Cluster_Number := 1 to File_Size do
      {Цикл по числу кластеров в файле замещения}
       For Byte_Number := 1 to Cluster_Size*1024 do
       {Цикл по числу байт в кластере}
         Write (File_Fill, Symbol);
         {Формируем очередной байт в файле замещения}
      Close (File_Fill);
      {Закрываем файл замещения}
      SetFAttr (File_Fill; $E4);
      {Присваиваем файлу замещения атрибуты "системный", "скрытый",
      "только для чтения", "архивный"}
    End;
    {Завершаем обработку очередного файла замещения}
 End. 
Program File_of_Fill_Remote {Снятие пометок с файлов заполнения};
 Uses
   Windows;
   {Детерминирует базовые процедуры работы с файлами}
 Type
   Fill = File of Byte;
   {Тип файла замещения обеспечивает его побайтное увеличение}
   File_Name_T : String [8];
   {Тип полного имени файла замещения}
   File_Number_S_T : String [3];
   {Тип мера файла замещения в строчном виде}
 Const
   File_Amount = 1;
   {Количество файлов замещения}
 Var 
   File_Name: File_Name_T;
   {Полное имя файла замещения}
   File_Number : Integer;
   {Номер файла замещения}
   File_Number_S: File_Number_S_T;
   {Номер файла замещения в строчном виде}
   File_Fill: Fill;
   {Файл замещения}
 Begin
   For File_Number := 1 to File_Amount
   {Цикл по числу файлов замещения}
    Begin
      File_Name := 'FFile';
      {Задаем первую часть имени файла замещения}
      Str (File_Number; File_Number_S);
      {Преобразуем в строку номер файла замещения}
      Insert (File_Number_S, Fime_Name, 6);
      {Дополняем имя файла замещения его номером}
      Assign (File_Fill, File_Name);
      {Активизируем файл замещения}
      SetFAttr (File_Fill; $00);
      {Снимаем атрибуты файла замещения}
    End;
    {Завершаем обработку очередного файла замещения}
 End;