高手请驾到！

- -打开fa 读入 关闭fa 打开fc 输出到fc 打开fb 读入 关闭fb 输出到fc 关闭fc

pascal:
assign(fa,'*.*');（*.*为文件名,下同）
assign(fb,'*.*');
assign(fc,'*.*');
reset(fa);
reset(fb);
rewrite(fc);
while not eof(fa) do begin
   readln(r,fa);(r注意类型不要定义错)
   writeln(r,fc);
   end;
while not eof(fb) do begin
    readln(r,fb);
    writeln(r,fc);
    end;
close(fa);
close(fb);
close(fc);
随手写的，未验证语法,应该没错。

LS。两个都不为空呢？

回复：3楼
有问题。r应该放后面吧。