Чтение списка из файла - PascalABC.NET

Program file9v;
 
Type anketa=record
   fam: string[10]; 
   name: string[10];
   year_end: integer; 
   numb:integer; 
   math: 1..5; 
   fiz: 1..5;
   rus: 1..5;
end;
Var
i:integer;
student: array [1..100] of anketa;
file1:file;
put:string;
Begin
//Write('Путь к файлу(имя файла, если он находится в папке с программой) - ');
//Readln(put);
//Write('Количество студентов - ');
//Readln(n);
put:='Vedom.txt';
assign(file1,put);//связываем переменную с файлом
reset(file1);//открываем файл для чтения
 i:=1;
 while not EOF(file1) do
  begin
  readln(file1,student[i].fam,student[i].name,student[i].year_end,student[i].numb,student[i].math,student[i].fiz,student[i].rus);
  inc(i);
  end;
  end.

readln(file1,student[i].fam,student[i].name,student[i].year_end,student[i].numb,student[i].math,student[i].fiz,student[i].rus);