Данная процедура удаляет ключ из индексного файла.  Она объ-
         является следующим образом:
             procedure DeleteKey(var   ifile:   Indexfile,   var  RecNum:
                                 integer, var key);
         Если в файле допускаются дублированные ключи,  то  RecNum  должна
         содержать номер записи данных, связанной с ключем, который должен
         быть удален. Если операция завершилась успешно, то ОК равно TRUE,
         в противном случае - FALSE.