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