TP / 11 / WRITEF

uses Crt;

const
  Base = 'Base.dat';
  Len  = 29;

type
  Worker = record
    FIO: string[Len];
    Kafedra,Dolgnost,Razrad: Byte;
    Stavka: Real;
    Oklad,Zarplata: Longint;
  end;

var
  w: Worker;
  f: file of Worker;

begin
  assign(f,Base);
  rewrite(f);
  with w do begin
    FIO:= 'Џ®Ї®ў ЊЁе Ё« ‚« ¤Ё¬Ёа®ўЁз';
    Kafedra:= 1;
    Dolgnost:= 2;
    Razrad:= 9;
    Stavka:= 1.5;
    Oklad:= 8000;
    Zarplata:= Round(Stavka * Oklad);
  end;
  Write(f,w);
  close(f);
  ReadKey;
end.