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

Формулировка задачи:

Число, которое одинаково читается слева направо и наоборот, называется палиндромом, напр., 3773. Возьмем произвольное число N (от 10 до 10000). Если оно не палиндром, добавим к нему число, состоящее из тех же цифр, но записанных в обратном порядке. Будем повторять эту операцию, пока не получим палиндром (если это возможно). Напр., N = 49, 49 94 = 143, 143 341 = 484. Напишите программу, которая бы определяла, можно из заданного числа N получить палиндром, и если возможно, то за какое минимальное количество добавлений. Если меньше, чем за 100 добавлений это сделать невозможно, вывести на экран -1. вот сделал что смог но выдаёт ошибку PABCSystem.pas(4774) : Ошибка времени выполнения: Файл не открыт на запись и выделяет красным в PABCSystem.pas строку if val = nil then вот сама программа

                    Листинг программы
                
 
                        
                          
                    
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.

вот ещё выводит в окне вывода Ошибка времени выполнения: System.IO.IOException: Файл не открыт на запись Стек: at PABCSystem.PABCSystem.write(Text f, Object val) in D:\программы\PascalABC.NET\LibSource\PABCSystem.pas:line 4774 at PABCSystem.PABCSystem.writeln(Text f, Object val) in D:\программы\PascalABC.NET\LibSource\PABCSystem.pas:line 4807 at dobavlenie.dobavlenie.$Main() in C:\PABCWork.NET\Добавление\Program3.pas:line 34 at Program3.Program.Main()

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

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