pascal - 将文件内容写入另一个文件

Question

所以，我面临着这个任务。我编写了代码，但不知何故，它没有将文件内容放入另一个文件 2，而是简单地删除了文件 2 的内容。我究竟做错了什么？

Program Lesson9_Program2;
Var FName, Fname2, Txt, Txt2 : String;
    UserFile, UserFile2   : Text; 
Begin
 FName := 'Textfile';
 Assign(UserFile,'E:\text.txt'); {assign a text file} 
 Assign(UserFile2,'E:\text2.txt');

 Reset(UserFile);
 Reset(UserFile2);
 readln(UserFile2, Txt);
 readln(UserFile, Txt2);

 Close(UserFile2);
 Close(UserFile);

 Rewrite(UserFile);

 WriteLn(UserFile, Txt);
 WriteLn(UserFIle, Txt2);

 Close(UserFile);


 Rewrite(UserFile);
End. 

Answer 1

所以问题出在最后一个重写函数中。原来，它是为了擦除文件内容，所以删除它修复了我的程序