Индекс находится вне границ массива - 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.