将文件的内容写入另一个文件

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

所以问题是在上次重写函数。原来，它是用来擦除文件内容的，所以删除它可以修复我的程序