下面的程序可以把文本文件filel.txt复制为file2.txt,请真空完成。

 PROGRAM pp9(Output); 

 VAR

 f1,f2:Text; 

 PROCEDURE copy( [           12          ] ) 

 VAR

c:Char; 

BEGIN 

WHELE[1                13                    3]DO 

BEGIN 

 Read(t1,C); 

 Write(t2.C) 

 END 

 END; 

 BEGIN 

Assign(f1,’filel.txt’);

Assign(f2,’file2.txt’);

Reset(f1); 

Rewrite(f2); 

Copy(           14             ); 

Close(f1,); 

Close(f2,) 

END.