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