Ошибка времени выполнения: Чтение после конца потока невозможно - PascalABC.NET (24605)

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

Ошибка в строке 9.

var
  A: file of integer;
  B, I, J: integer;
begin
  assign(A, 'D:\KEK.txt');
  reset(A);
  while not eof(A) do
    begin
      read(A, B);
      write(B);
    end;
  seek(A, 3);
  read(A, I);
  seek(A, 5);
  read(A, J);
  seek(A, 3);
  write(A, J);
  seek(A, 5);
  write(A, I);
  close(A);
end.

Решение задачи: «Ошибка времени выполнения: Чтение после конца потока невозможно»

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

reset(A);
  while not eof(A) do
    begin
      read(A, B);
      write(B);
    end;

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

reset(A); — функция, которая сбрасывает указатель чтения в начало потока A.
while not eof(A) do — цикл, который выполняется до тех пор, пока не достигнут конец потока A.
begin — начало блока кода.
read(A, B); — функция, которая считывает данные из потока A и сохраняет их в переменной B.
write(B); — функция, которая записывает данные из переменной B в консоль.
end — конец блока кода.