PABCSystem.pas(4774) : Ошибка времени выполнения: Файл не открыт на запись

program dobavlenie;
var n,a:string;
    i,k,x,y,c,s:integer;
    f1,f2:text;
begin
 assign(f1,'imput.txt');
 assign(f2,'output.txt');
 reset(f1);
 read(f1,n);
 close(f1);
 a:='';                       
 for i:=1 to length(a) do
   a:=n[i]+a;
 if a=n then
   begin
    rewrite(f2);
    write(f2,'0')
   end
 else
  begin
   begin
     k:=0;   
    repeat   
     val(a,x,c); 
     val(n,y,c);  
     s:=x+y;    
     k:=k+1;    
     str(s,n);  
     for i:=1 to length(n) do
       a:=n[i]+a;                                                       
    until (a=n) or (k<100)         
   end;                             
   if (k<100) then 
    writeln(f2,k+1)
   else 
    writeln(f2,'-1')
  end;
 close(f2)
end.

 assign(f1,'imput.txt');
 assign(f2,'output.txt');
 reset(f1);
 rewrite(f2); // После добавления этой строки нет никакой ошибки
 read(f1,n);
 close(f1);

Function IntRevers(a : Longint) : Longint;
Var k : Longint;
Begin
  k:=0;
  While a>0 do
  Begin
    k:=k*10+(a mod 10);
    a:=a div 10;
  end;
  IntRevers:=k;
end;
 
Function IsPali(B : Longint) : Boolean;
Begin
  IsPali:=(B=IntRevers(B));
end;
 
Var N : Longint;
    i : Byte;
Begin
  Readln(N);
  i:=0;
  While (i<=100) and not IsPali(N) do
  Begin
    N:=N+IntRevers(N);
    Inc(i);
    Writeln(N);
  end;
  If not IsPali(N) then Writeln('-1');
end.