Внешняя сортировка(естественное слияние)

[(Нафаня)]

При попытке запуска программы, пишет, что вот здесь

while not eof(f) do
    begin
      read(f,a[i]);
      i:=i+1;
end;

происходит выход за границы диапазона индексов. Пробовала с циклом for сделать, та же ошибка. Как тут по-другому сделать?

 program og;
 const n=5;
var f,fo:text;
  a:array[1..n] of string[30];
  c,s:string[30];
  i,k,j,minL:integer;
begin
  assign(f,'C:\text\inp.txt');
  reset(f);
  assign(fo,'C:\text\out.txt');
  rewrite(fo);
  i:=1;
  while not eof(f) do
    begin
      read(f,a[i]);
      i:=i+1;
    end;
  for j:=1 to i do
    writeln(a[j]);
  for k:=1 to i-1 do
    begin
      for j:=1 to i-k do
        if length(a[j])> length(a[j+1]) then
          begin
            c:=a[j];
            a[j]:=a[j+1];
            a[j+1]:=c;
          end;
    end;
  for j:=1 to i do
    writeln(fo,a[j]);
  close(f);
  close(fo);
end.

[Serge_Bliznykov]

а попробуйте так написать:

  i:=0;
  while not eof(f) do
    begin
      i:=i+1;
      if i<=n then 
         readln(f,a[i])
      else begin
         WriteLn('#error: too many strings in file');
         Break;
      end; 
    end;
 for j:=1 to i do
    writeln(a[j]);

[(Нафаня)]

Спасибо, помогло) но ошибка все равно есть дальше) буду разбираться)