var
  f1,f2:file of byte;
  c:byte;
begin
  assign(f2,'0.out');  rewrite(f2);
  assign(f1,'1.in');  reset(f1);
  while not eof(f1) do begin
    read(f1,c);write(f2,c);
  end;
  close(f1);
  assign(f1,'2.in');  reset(f1);
  while not eof(f1) do begin
    read(f1,c);write(f2,c);
  end;
  close(f1);
  close(f2);
end.
我没有TP直接写的，如果有错自己改一下。

谢谢你，请问你的qq是多少？
我是初学者，有很多问题要向大侠你请教，谢谢，致敬