Данная процедура помещает запись информации с заданным номе-
         ром в файл данных. Она объявляется следующим образом:
              procedure PutRec(var dfile: DataFile, var RecNum:integer,
                               var buffer);
         Информация из buffer помещается в запись с номером RecNum.  Пере-
         менная buffer должна иметь размер соответствующий длине записи.