При вводе более двух студентов программа выдает ошибку

program txtfl;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, windows;
 
 
 
var
  index:string[10];
  fam:string[20];
  name:string[10];
  year:1994..2000;
  month:1..12;
  day:1..31;
 f1,f2,f3:textfile;
 n:integer;
  procedure vvod(var fx:textfile; nx:integer);
var i:integer;
begin
for i:=1 to nx do
begin
  write('Введите индекс группы: ');
  readln(index);write(fx,index:7);
  Writeln('Введите фамилию: ');
  Readln(fam);write(fx,fam:15);
 
 
  Writeln('Введите имя: ');
  Readln(name);write(fx,name:10);
 
 
  Writeln('Введите день рождения: ');
  Readln(day);write(fx,day:2);
 
 
  Writeln('Введите месяц рождения: ');
  Readln(month);write(fx,month:2);
 
 
  Write('Введите год рождения (1994-2000): ');
  Readln(year);write(fx,year:4);
  writeln(fx);
writeln;
end;
end;
procedure  vyvod(var fx:textfile);
var
  xindex:string[10];
  xfam:string[20];
  xname:string[10];
  xyear:1994..2000;
  xmonth:1..12;
  xday:1..31;
begin
writeln('индекс   фамилия       имя      день      месяц      год');
writeln;
while not eof(fx) do
 
begin
 
  read(fx,xindex);write(xindex:7);
  Read(fx,xfam);write(' ':3,xfam:15);
  Read(fx,xname);write(' ':8,xname:10);
  Read(fx,xday);write(' ':9,xday:2);
  Read(fx,xmonth);write(' ':6,xmonth:2);
  Read(fx,xyear);write(' ':6,xyear:4);
  readln(fx);
writeln;
end;
writeln;
end;
 
 
 
 
Begin
setconsolecp(1251);
setconsoleoutputcp(1251);
assignfile(f1,'file1.txt');
rewrite(f1);
assignfile(f2,'file2.txt');
rewrite(f2);
assignfile(f3,'file3.txt');
rewrite(f3);
 
//Ввод текстового файла
writeln('Введите кол-во студентов');readln(n);
writeln;
vvod(f1,n);
//вывод текстового файла
writeln(' ':20,'Исходный список студентов: ');
writeln;
reset(f1);
vyvod(f1);
writeln;
  { TODO -oUser -cConsole Main : Insert code here }
  readln;
end.

fam:string[20];
...
write(fx,fam:15);