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

{В группе 5 человек. Вывести анкетные данные студентов, которые получили за последнюю сессию все оценки 5.}
Program lab6_4;
Const n=5;{количество студентов}
Type stud=Record
          fam:string[20];{фамилия студента}
          rn:integer;{год рождения}
          st:char;{пол}
          ok:array[1..5] of integer;{оценки}
     end;
Var grupa:array[1..n] of stud;{массив записей}
    i,k:integer;
    flag:boolean;
    
BEGIN
     Writeln('Введите записи');
     For i:=1 to n do
          begin
               Writeln(i);
               With grupa[i] do begin
                    Write('Фамилия ');
                    readln(fam);
                    Write('Год рождения ');
                    readln(rn);
                    Write('Пол ');
                    readln(st);
                    Write('Оценки ');{5 штук в одну строку через пробел}
                    For k:=1 to 5 do read(ok[k]);
                    readln;
               end;
          end;
     Writeln;
     For i:=1 to n do
      begin
        flag:=false;
        For k:=1 to 5 do
          begin
            if grupa[i].ok[k]=5 then flag:=true
            else break;
          end;
        If flag=true then
          begin
            With grupa[i] do
              begin
                Writeln('Фамилия ',fam);
                Writeln('Год рождения ',rn);
                Writeln('Пол ',st);                
              end;
          end;
      end;  
END.