работа с файлом

[Sergey Bi. старший]

помогите пожалуйста решить проблему. есть файл, в который записываются данные.
но объём записываемых в него данных ограничен max_voc = 10000. если написать 10001, то выдаёт ошибку "Read Beyond end of file". никак не могу решить этот вопрос. ошибка в строчке

вот фрагмент кода

const
  max_voc=10000;

  basewords=record
  _word: string[max_length];
  n1,n2,n3: byte;
  n4,n5: string[max_length];
  end;

  baword=array[1..max_voc] of basewords;

  cybertype=record
  _words: baword;
  _vcount: integer;
  end;

  cyberfile=file of cybertype;
  _set=set of 0..10;

procedure Loadbase;
var
f: cyberfile;
begin
Assignfile(f,basefile);
{$I-}
Reset(f);
{$I+}
If IOResult<>0 then begin
MessageBox(0,'Невозможно открыть файл базы данных! База будет пересоздана.','Внимание',MB_OK);
base._vcount:=0;
end else begin
Read(f,base);    // здесь происходит остановка и вылезает ошибка
Closefile(f);
end;
end;

за любую подсказку буду безмерно благодарен!!

[GunSmoker]

У вас ответ на вопрос в нём же и содержится.

объём записываемых в него данных ограничен max_voc = 10000

Вот и всё. Не делай больше 10000.

[Sergey Bi. старший]

так задача-то в том, чтобы сделать эту цифру больше, в идеале намного больше.

[Человек_Борща]

Константа она на то и константа что не изменна.

[Sergey Bi. старший]

константа здесь не причём. при значении константы больше 10000 программа выдаёт ошибку выхода за пределы конца файла.

[Lifefine]

выложи проект, посмотрю и с возможностью исправлю.