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.