Выбрать студентов, которые по результатам двух сессий имеют средний балл не ниже чем 4,5

uses crt;
 
type
  TStudent = record
    Surname : string[50];
    Kod : byte;
    Year : integer;
    Gender : byte;
    Mark : array [1..8] of byte;
  end;
  
var
  Student : array [1..15] of TStudent;
  i, j, n : integer;
  Sum : real;
 
begin
  Repeat
    Write('Количество студентов: ');
    Readln(n);
  until n in [1..15];
  for i := 1 to n do
    with Student[i] do
      begin
        Write('Фамилия студента №', i, ': ');
        Readln(Surname);
        Repeat
          Write('Группа МТ - ');
          Readln(Kod);
        until Kod in [1..3];
        Repeat
          Write('Год рождения: ');
          Readln(Year);
        until Year in [1970..1990];
        Repeat
          Write('Пол (1 - мужчина; 0 - женщина): ');
          Readln(Gender);
        until Gender in [0..1];
        for j := 1 to 8 do
          begin
            if j <= 4 then 
              begin
                Write('Оценка № ', j, ' за первую сессию: ');
                Readln(Mark[j]);
              end else
                    begin
                      Write('Оценка № ', j - 4, ' за вторую сессию: ');
                      Readln(Mark[j]);
                    end;
          end;
      end;
Writeln('Студенты,которые получили средний балл не ниже, чем 4.5:');      
for i := 1 to n do
  begin
    Sum := 0;
    for j := 1 to 8 do
      Sum := Sum + Student[i].Mark[j];
    Sum := Sum/8;
    if Sum >= 4.5 then Writeln('Фамилия: ', Student[i].SurName, '; Группа: МТ - ', Student[i].Kod);
  end;
Readln;   
end.

repeat
...
until (Year>=1970)and(Year<=1990);