Подскажите пожалуйста, как исправить ошибку "Runtime exception: Попытка считывания за концом текстового файла"

uses System;
type students = record
     f,i,o : string;
     m1,m2,m3,m4 : longint;
     sr : real;
     end;
var
  a : array[1..1000] of students;
  t : byte;
  f : text;
  n,i,step,data2 : longint;
  tmp : integer;
  s,next,name_of_file: string;
  z1: text;
begin
  writeln('Ввод из файла - 1, с клавиатуры - 0');
  readln(t);
  if (t=1) then
  begin
    writeln('Введите название файла. Пр: data.txt');
    assign(z1,'data1.txt');
    reset(z1);    
    data2:=0;
    readln(z1,s);
    readln(z1,n);
    readln(z1,s);
    for i:=1 to n do 
    begin
      readln(z1,s);
      step:=0;
      while (s<>'') do
      begin
        next:='';
        while (s<>'') and (s[1]<>' ') do
        begin
          next:=next+s[1];
          delete(s,1,1);
        end;
        while (s<>'') and (s[1]=' ') do delete(s,1,1);
        // Загружаем в структуру значения с файла
        if (step=0) then a[i].f := next;
        if (step=1) then a[i].i := next;
        if (step=2) then a[i].o := next;
        if (step=3) then val(next,a[i].m1,tmp); // val - перевод из int в string
        if (step=4) then val(next,a[i].m2,tmp);
        if (step=5) then val(next,a[i].m3,tmp);
        if (step=6) then val(next,a[i].m4,tmp);
        inc(step);
      end;
      a[i].sr := (a[i].m1 + a[i].m2 + a[i].m3 + a[i].m4)/(4.0);
    end;
  close(z1);
  end;
  if (t=0)
  then begin
    writeln('Количество студентов');
    readln(n);
    writeln('Введите данные через пробел(фамилия имя отчество оценка1 оценка2 оценка3 оценка4)');
    writeln();
    writeln('Пример: Иванов Иван Иванович 8 8 8 8');
    writeln();
    for i:=1 to n do 
    begin
      writeln('Информация про ',i,'-го студента');
      readln(s);
      step:=0;
      while (s<>'') do
      begin
        next:='';
        while (s<>'') and (s[1]<>' ') do
        begin
          next:=next+s[1];
          delete(s,1,1);
        end;
        while (s<>'') and (s[1]=' ') do delete(s,1,1);
        // Загружаем в структуру значения с файла
        if (step=0) then a[i].f := next;
        if (step=1) then a[i].i := next;
        if (step=2) then a[i].o := next;
        if (step=3) then val(next,a[i].m1,tmp); // val - перевод из int в string
        if (step=4) then val(next,a[i].m2,tmp);
        if (step=5) then val(next,a[i].m3,tmp);
        if (step=6) then val(next,a[i].m4,tmp);
        inc(step);
      end;
      a[i].sr := (a[i].m1 + a[i].m2 + a[i].m3 + a[i].m4)/(4.0);
      writeln();
    end;
  end;
  var f1 : text;
  writeln('Введите название файла для вывода. Пр: data.txt');
  readln(name_of_file);
  assign(f1,name_of_file);
  rewrite(f1);
  writeln();
  writeln('Students with 7 mark or higher:');
  writeln(f1,'Students with 7 mark or higher:');
  for i:=1 to n do
    begin
      if (a[i].sr>7)
        then begin
          writeln(a[i].f,'  ',a[i].i,'  ',a[i].o,' ',a[i].m1,' ' ,a[i].m2,' ',a[i].m3,' ',a[i].m4,'. Middle mark:',' ', a[i].sr);
          writeln(f1,a[i].f,'  ',a[i].i,'  ',a[i].o,' ',a[i].m1,' ' ,a[i].m2,' ',a[i].m3,' ',a[i].m4,'. Middle mark:',' ', a[i].sr);
        end;
    end;
  close(f1);
end.

...
var t : Text;
Reset(t, 'data.txt');
while not eof(t) do
  begin
    var s : students;
    ReadLn(t, s.f); if eof(t) then break; // если вдруг больше нет данных,
    ReadLn(t, s.i); if eof(t) then break; // а мы ещё не успели всё заполнить,
    ReadLn(t, s.m1); if eof(t) then break; // то придётся прервать выполнение
    ReadLn(t, s.m2); if eof(t) then break; // операции считывания
    ReadLn(t, s.m3); if eof(t) then break;
    ReadLn(t, s.m4); if eof(t) then break;
    // считали всё хорошо
    s.sr := (s.m1+s.m2+s.m3+s.m4) / 4; // сразу считаем среднее
    inc(n); a[n] := s; // и добавляем новый элемент в массив
  end;
...

...
  foreach var s in ReadLines('data.txt') do
    begin
      var w := s.ToWords; // Должно быть 7 значений: 3 строковых и 4 числовых
      if w.Count <> 7 then continue; // Не 7 параметров.
      var st : students;
      st.f := w[0]; st.i := w[1]; st.o := w[2];
      st.m1 := StrToInt(w[3]); st.m2 := StrToInt(w[4]); st.m3 := StrToInt(w[5]); st.m4 := StrToInt(w[6]);
      st.sr := (st.m1 + st.m2 + st.m3 + st.m4) / 4;
      inc(n); a[n] := st;
    end;
...

begin
  Arr(ReadLexem, ReadLexem, ReadLexem).PrintLines;
end.