Исправить ошибку FileNotFoundException - PascalABC.NET

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

Возникла такая проблема,скрин прикреплен. Ошибка такая "System.IO.FileNotFoundException"

Решение задачи: «Исправить ошибку FileNotFoundException»

Листинг программы

assign(f, 'input.txt');          //Подключение файла ввода
if not fileexists('input.txt') then rewrite(f)
else
 begin
  reset(f);                        //Открываем файл на дозапись
  seek(f, filesize(f));            //Устанавливаем курсор в конец файла
 end;

Объяснение кода листинга программы

Подключение файла ввода - assign(f, 'input.txt');
Проверка наличия файла - if not fileexists('input.txt') then rewrite(f)
Открытие файла на дозапись - reset(f);
Установка курсора в конец файла - seek(f, filesize(f));