Данная процедура  возвращает  число  записей в файле данных,
         содержащих истинные данные.  Уничтоженные записи не подсчитывают-
         ся. Процедура объявляется следующим образом:
              function UsedRecs(var dfile: DataFile): integer;