[ManHack]

С директориями всё путём. Проблема решена использованием синтаксиса:

Код:

{$I-}
reset (input);
{I+}

Но теперь другая проблема:
Команда read (input, a[i]) не срабатывает (не считывает элемент из файла).

Код:

   while not eof (input) do begin
      read (input, a[i]);
   ...
   end;

С использованием writeln я понял что a[i] вообще ничего не присваивается.