Debugger Exception Notification问题？？ ??

Question

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);
writeln(f2,'hello');   
while not Eof(f1) do
begin
readln(f1,s);
writeln(f2,s);
end;
closefile(f1);
closefile(f2);
end.调试的时候，老报标题的错误
我的qq是44665376
哪位高手，能告诉我原因

Answer 1

AssignFile(f1,filename1);
  FileMode := 0;  {Set file access to read only }
  Reset(f1);
  ...
  CloseFile(f1);