В приложении создать и редактировать типизированный файл

Type
           //tSex = (woman, man);
           tSlug = record
                       nam, fam : string[15];
                              date   : 1920..2000;
                                sex  :string[3]; //tSex;
                             dolgn : record
                                         prof : record
                                                   name : string[15];
                                                   stag   : byte;
                                                 doxod  : record
                                                               osn : word;
                                                        premiya : word;
                                                          nalog  : real;   {13%}
                                                               end; {doxod}
                                                    end; {prof}
                                           telef : longint;
                                         end; {dolgn}
                         end; {tSlug}
 
TFile= file of TSlug;
 
var
  Form11: TForm11;
  Fv:TFile;
implementation
 
{$R *.dfm}
 
procedure TForm11.aaa1Click(Sender: TObject);
var zap:tSlug;
    NameFile:string;
    n,i: integer;
begin
 NameFile:=InputBox('File','Input','');
 assignFile(Fv,NameFile);
// label1.Caption:=namefile;
rewrite(Fv);
n:=strtoint(InputBox('Kol','Input',''));
for i:=1 to n do
 begin
 zap.nam:=InputBox('nam','Input','');
 zap.fam:=InputBox('fam','Input','');
 zap.date:=InputBox('date','Input','');
 zap.sex:=InputBox('sex','Input','');
 zap.dolgn.prof.name:=InputBox('name','Input','');
 zap.dolgn.prof.stag:=InputBox('stag','Input','');
 zap.dolgn.prof.doxod.osn:=InputBox('osn','Input','');
 zap.dolgn.prof.doxod.premiya:=InputBox('premiya','Input','');
 zap.dolgn.prof.doxod.nalog:=InputBox('nalog','Input','');
 zap.dolgn.telef:=InputBox('telef','Input','');
 end;
end;

zap.date:=StrToInt(InputBox('date','Input',')');