program Project2;{$APPTYPE CONSOLE}uses
  SysUtils;
  const
  filename1='c:\11.txt';
  filename2='c:\22.txt';
  var
  f1,f2:textfile;
  s:string;begin
assignfile(f1,filename1);
assignfile(f2,filename2);
rewrite(f2);
    
while not Eof(f1) do
begin
readln(f1,s);
writeln(f2,s);
end;
closefile(f1);
closefile(f2);
end.
调试的时候,老跳出如标题似的错误框