pascal蠕虫程序

Program QQzhandan;
Var
f1:text;
fn1:string;
i,k:word;
BEGIN{Main}
Write('Please Input:')
read(k); {输入要生成的文件数量}
For i:=1 to k do Begin {开始生成文件循环}
Str(i,fn1); fn1:=fn1+'.rar'; {以此改变文件的文件名 以免因为名字相同而覆盖原来的文件}
Assign(f1,fn1); rewrite(f1); {生