怎样用程序建立一个数据文件，在线等待谢谢

Question

function initialuserdata(filename:string):integer;
  var
  userfile:file of tuser;
  begin
   assignfile(userfile,filename);
   if fileexists(filename) then reset(userfile)
    else
    begin
     rewrite(userfile);
     write(userfile,manager);
    end;
   result:=filesize(userfile);
   closefile(userfile);
  end着段程序并没有建立文件，怎么回师，请高手指点，这里的manager，const
  manager:tuser=(name:'manager';psd:'1234');

Answer 1

if not FileExists('F:\1.txt') then
    FileCreate('F:\1.txt');

Answer 2

在这里老提示I/o error 6 
     write(userfile,manager);请问是怎么回事，谢谢

Answer 3

procedure TForm1.Button5Click(Sender: TObject);
type
  userdata=record
    name:string[32];
    sex:string[2];
  end;
var
  userfile:file of userdata;
  FileName:string;
  manager:userdata;
begin
  FileName:='F:\1.txt';
  if not FileExists(FileName) then
    FileCreate(FileName);
  manager.name:='eeeeee';
  manager.sex:='男';
  try
    AssignFile(userfile,FileName);
    Reset(userfile);
    Seek(userfile,filesize(userfile));
    write(userfile,manager);
  finally
   closefile(userfile);
  end;

Answer 4

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EInOutError with message 'I/O error 32'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------
这个提示的错误在AssignFile(userfile,FileName);
进跟着有提示一个错误，这是再按运行按钮产生的情况
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EInOutError with message 'I/O error 103'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------
着个提示在closefile(userfile)这一行