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