很有意思的一个有关问题,有好奇心的一定不要错过

很有意思的一个问题,有好奇心的一定不要错过
var
    PassWdFile:textFile;
    FilePath:string;
    FileContent:string;
begin
    FilePath   :=   ExtractFilePath(Application.Exename)   +   'password.txt ';
    if     fileexists(FilePath)   then
    begin
        assignfile(PassWdFile,FilePath);
        read(PassWdFile,FileContent);
    end;
  ..................
提示I/O   ERROR   104,好象是read(PassWdFile,FileContent);的错误,但不知道怎么改

[解决办法]
rewrite(PassWdFile);