Вывести на экран анкетные данные студентов, получивших за всю сессию все оценки

Const   N=4;
Type
student = Record
fam:String[15];
inn:string[10];
data_r:string[8];
god_p:integer;
kurs:1..5;
gruppa:string[8];
b1,b2,b3:2..5;
End;
Var spisok: Array [1..N] Of student;
i: Integer;
Begin
For i:=1 To N Do
With spisok[i] Do
Begin
Writeln('Введите фамилию');
Readln(fam);
Writeln('Введите ИНН');
Readln(inn);
Writeln('Введите дату рождения(DDMMGGGG)');
Readln(data_r);
Writeln('Введите год поступления');
Readln(god_p);
Writeln('Введите курс');
Readln(kurs);
Writeln('Введите группу');
Readln(gruppa);
Writeln('Введите три оценки');
Readln(b1,b2,b3);
End;

const
  N = 4;
 
type
  student = Record
    fam: String[15];
    inn: string[10];
    data_r: string[8];
    god_p: integer;
    kurs: 1..5;
    gruppa: string[8];
    b1, b2, b3: 2..5;
  End;
 
var
  spisok: Array [1..N] Of student;
  i: Integer;
 
begin
  for i := 1 To N Do
    with spisok[i] Do
    begin
      Writeln('Введите фамилию');
      Readln(fam);
      Writeln('Введите ИНН');
      Readln(inn);
      Writeln('Введите дату рождения(DDMMGGGG)');
      Readln(data_r);
      Writeln('Введите год поступления');
      Readln(god_p);
      Writeln('Введите курс');
      Readln(kurs);
      Writeln('Введите группу');
      Readln(gruppa);
      Writeln('Введите три оценки');
      Readln(b1, b2, b3);
    end;
  for i := 1 To N Do
    with spisok[i] Do
      if (b1 in [2..5]) and (b2 in [2..5]) and (b3 in [2..5]) then
      begin
        Writeln('Фамилия: ', fam);
        Writeln('ИНН: ', inn);
        Writeln('Дату рождения(DDMMGGGG): ', data_r);
        Writeln('Год поступления: ', god_p);
        Writeln('Курс: ', kurs);
        Writeln('Групп: ', gruppa);
        Writeln('Три оценки: ', b1, b2, b3);
      end;
end.

if (b1 = 5) and (b2 = 5) and (b3 = 5) then