Данные процедуры  используются  для создания файлов данных и
         индексных файлов Turbo Access. Они объявляются следующим образом:
              procedure MakeFile(var dfile: DataFile, fname: string[14]
                                 RecLen: integer);
              procedure MakeIndex(var    ifile:    IndexFile,    fname:
                                  string[14], KeyLen,DupKeys: integer);
         Параметр RecLen  в  MakeFile должен содержать значение длины дан-
         ных,  которые будут запоминаться. Лучший способ сделать это - ис-
         пользование  SizeOf  вместо  подсчета  байт.  Параметр  KeyLen  в
         MakeIndex должен содержать значение длины ключа.  Если DopKey ус-
         тановлен в 0,  то дублирование ключей не допускается, а если в 1,
         то допускается.  Успешное выполнение операции устанавливает ОК  в
         TRUE, в противном случае - в FALSE.