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