Данная процедура  возвращает  соответствующий  номер  записи
         файла  данных,  связанный  со следующим ключем в индексном файле.
         Она объявляется следующим образом:

              procedure NextKey(var   ifile:   IndexFile,  var  RecNum:
                                integer, var key);

              После обращения к процедуре RecNum будет содержать номер за-
         писи в файле данных, соответствующей следующему ключу в индексном
         файле.  Переменной key будет присвоено значение следующего ключа.
         При успешном обращении к NextKey ОК  устанавливается  в  TRUE,  в
         противном случае - в FALSE.