Ошибка записи данных в файл - Pascal

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

Программа работает только для 2. а если пытаться записать больше 2, то выдает ошибку (84) : Ошибка времени выполнения: Измерения массива превысили поддерживаемый диапазон. Помогите, пожалуйста, исправить.

type otkryt = record
     fam:  string[20];
     im,str:  string[40];
     work,otk: string[255];
     gr,gs,go: 1..9999;
     end;
     A=array [1..4] of otkryt;
        
var h: A;
    f: file of A;
    i,n:integer;
    
begin n:=7;
assign(f,'D:\sciense.text');
rewrite(f);
 
h[1].fam:='Декарт';
h[1].im:='Рене';
h[1].str:='Франция';
h[1].work:='математика';
h[1].gr:=1596;
h[1].gs:=1650;
h[1].go:=1637;
h[1].otk:='декартовa системa координат';
 
h[2].fam:='Галилей';
h[2].im:='Галилео';
h[2].str:='Италия';
h[2].work:='физика';
h[2].gr:=1564;
h[2].gs:=1642;
h[2].go:=1600;
h[2].otk:='принцип инерции';
 
h[3].fam:='Лобачевский';
h[3].im:='Николай';
h[3].str:='Россия';
h[3].work:='математика';
h[3].gr:=1564;
h[3].gs:=1642;
h[3].go:=1829;
h[3].otk:='геометрия Лобачевского';
 
write(f,h);
//clrscr;
writeln('Содержание файла sciense');
reset(f);
while not(eof(f)) do
      begin 
     read(f,h);
   with h do
  for  i:=1 to 2 do
 writeln(h[i].fam);//end;
      end; 
close(f);
end.

Решение задачи: «Ошибка записи данных в файл»

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

const
  fName = 'D:\sciense.okt';
 
type
  otkryt = record
    fam:  string[20];
    im,str:  string[40];
    work,otk: string[255];
    gr,gs,go: 1..9999;
  end;
        
procedure CreateFile;
var
  h : otkryt;
  f : file of otkryt;
begin
  Assign(f, fName);
  Rewrite(f);
  
  h.fam:='Декарт';
  h.im:='Рене';
  h.str:='Франция';
  h.work:='математика';
  h.gr:=1596;
  h.gs:=1650;
  h.go:=1637;
  h.otk:='декартовa системa координат';
  Write(f, h);
  
  h.fam:='Галилей';
  h.im:='Галилео';
  h.str:='Италия';
  h.work:='физика';
  h.gr:=1564;
  h.gs:=1642;
  h.go:=1600;
  h.otk:='принцип инерции';
  Write(f, h);
 
  h.fam:='Лобачевский';
  h.im:='Николай';
  h.str:='Россия';
  h.work:='математика';
  h.gr:=1564;
  h.gs:=1642;
  h.go:=1829;
  h.otk:='геометрия Лобачевского';
  Write(f, h);
 
  Close(f);
end;
  
procedure ReadFile;
var
  h : otkryt;
  f : file of otkryt;
begin
  writeln('Содержание файла ', fName);
  Assign(f, fName);
  Reset(f);
  while Not EOF(f) do
    begin
      Read(f, h);
      writeln(h.fam);
    end;
  Close(f);
end;
 
begin
  CreateFile;
  ReadFile;
end.

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

Объявлены константы и переменные:
- const fName = 'D:\sciense.okt';
- type otkryt = record ... end;
- var h: otkryt;
- var f: file of otkryt;
Создание файла:
- procedure CreateFile;
- var h: otkryt;
- var f: file of otkryt;
- Assign(f, fName);
- Rewrite(f);
- Запись данных в файл (пока не проверялось, правильно ли записываются данные)
- h.fam := 'Декарт'; ...
- h.otk := 'декартовa системa координат';
- Write(f, h);
- ...
- Close(f);
Чтение файла:
- procedure ReadFile;
- var h: otkryt;
- var f: file of otkryt;
- Assign(f, fName);
- Reset(f);
- while Not EOF(f) do
  - begin
  - Read(f, h);
  - writeln(h.fam);
  - end;
- Close(f);
Запуск программы:
- begin CreateFile;
- ReadFile; end.