Индекс находится вне границ массива - PascalABC.NET (25164)

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

При компиляции выдает ошибку: Индекс находится вне границ массива. Причем если заполнить файл вручную то ошибки нет. В чем причина?

                    Листинг программы
                
 
                        
                          
                    
program three;
 
uses
   crt;
 
var
   arr: array [0..29, 0..9] of integer;
   i, j, k, res: integer;
   f: text;
 
begin
   assign(f, 'test.txt');
   rewrite(f);
   for j := 0 to 9 do
   begin
      for i := 0 to 29 do
      begin
         arr[i, j] := random(11);
         write(f, arr[i, j]);
         write(f,' ');
      end;
      writeln(f);
   end;
   close(f);
   reset(f);
   while(not EOF(f)) do
   begin
      i := 0;
      while(not EOLN(f)) do
      begin
         read(f, arr[i, j]);
         i := i + 1;
      end;
      Readln(f);
      j := j + 1;
   end;
   close(f);
   for j := 0 to 9 do
   begin
      for i := 0 to 29 do
         write(arr[i, j], ' ');
      writeln();
   end;
end.

Решение задачи: «Индекс находится вне границ массива»

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

reset(f);
 while(not EOF(f)) do

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

В начале код открывает файл с помощью функции Reset(f).
Затем, используется цикл while, который будет выполняться до тех пор, пока не достигнет конца файла с помощью функции EOF(f).
Внутри цикла, код выполняет действия, которые необходимо повторить для каждого элемента файла.