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

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

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