文件改名问题，为何rename总是出错？

[aveli]

var
f:file;

begin

assignfile(f,'d:\myfile.txt');
rewrite(f);
rename(f,'mynewfile.txt');
closefile(f);

end;

请帮我看看，哪里出了错。谢谢。

[qiubolecn]

assignfile后直接改名，不要用rewrite

[westfly]

把Rewrite(f)及CloseFile(f)去掉。

[aveli]

非常感谢。