Ошибка времени выполнения: Файл не найден - Pascal ABC

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

Ошибка времени выполнения: Файл 'G:\Проекты\Pascal\input.txt' не найден. Файл там есть, назван так же. Помогите

program one;
var KolvoZaprosov,Kol_rab,i,g:integer;
f:text;
ZarplataRabotnikov,Zaprosi,Premia:array[1..500]of integer;
begin
    assign(f,'input.txt');
    reset(f);
    readln(Kol_rab);
    for i:=1 to Kol_rab do
        read(ZarplataRabotnikov[i]);
    readln;
    readln(KolvoZaprosov);
    for i:=1 to KolvoZaprosov do
    begin
        read(Zaprosi[i]);
        if (Zaprosi[i]=2) then 
        readln(Premia[i])
        else
        readln;
    end;
    close(f);
    g:=0;
    for i:=1 to Kol_rab do
    begin
        if Premia[i]>ZarplataRabotnikov[i] then 
        Inc(g);
    end;
    Assign(f,'output.txt');
    rewrite(f);
    write(f,g);
    close(f);
    end.

Решение задачи: «Ошибка времени выполнения: Файл не найден»

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

reset(f);
readln(f,Kol_rab);
for i:=1 to Kol_rab do
read(f,ZarplataRabotnikov[i]);

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

reset(f); - функция reset сбрасывает счетчик строк в файле f.
readln(f,Kol_rab); - функция readln считывает следующую строку из файла f и сохраняет ее в переменную Kol_rab.
for i:=1 to Kol_rab do - цикл for выполняется i раз, где i - переменная, начинающаяся с 1 и заканчивающаяся Kol_rab.
read(f,ZarplataRabotnikov[i]); - функция read считывает данные из файла f и сохраняет их в переменную ZarplataRabotnikov[i].