Ошибка времени выполнения unable to read beyond the end of stream - Pascal ABC

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

uses graphabc;
var a, b, c:integer;
i:file of integer;
begin
SetWindowWidth(500);
SetWindowHeight(500);
SetWindowIsFixedSize(true);
repeat
assign(i,'C:\Seva`s games\a');
reset(i);
read(i,c);
close(i)
until c=1;
end.

Ошибка на 11-ой строке. Обясните пожалуйста чём причина.

Решение задачи: «Ошибка времени выполнения unable to read beyond the end of stream»

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

assign(i,'C:\Seva`s games\a');
rewrite(i);
close(i);

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

i - это дескриптор файла, который был только что открыт
assign(i,'C:\Sevas games\a');- это команда присваивания, которая записывает путь к файлу в переменнуюi`
rewrite(i); - это команда перезаписи файла с использованием содержимого файла, определенного как стандартный ввод, и записывает его в файл, указанный в переменной i
close(i); - это команда закрытия файла, которая освобождает все системные ресурсы, связанные с файлом, определенным в переменной i