Вывести на экран список студентов, которые являются отличниками ( больше 2х пятерок)

uses crt;
const c=3;o=3;
Type
 zap=record
   familia:string;
   name:string;
   otchestvo:string;
   grozhdenia:integer;
   group:string;
   k:array[1..o] of integer;
   s:real;
   sv: integer;
 end;
var z:array[1..c]of zap;
    k:zap;
    i,j:integer;
    b:boolean;
begin
 clrscr;
for i:=1 to c do
 begin
 z[i].s:=0;
 writeln ('Фамилия :  ');
 readln (z[i].familia);
 writeln ('Имя:  ');
 readln (z[i].name);
 writeln ('Отчество:  ');
 readln (z[i].otchestvo);
 writeln ('Год рождения:  ');
 readln (z[i].grozhdenia);
 writeln ('Группа:  ');
 readln (z[i].group);
 writeln ('Оценки (математика, физика,программирование), ввод через Enter :  ');
 for j:=1 to o do
  begin
  read(z[i].k[j]);
  z[i].s:=z[i].s+z[i].k[j];
  end;
 z[i].s:=z[i].s/o;
 write ('Средний балл студента :  ',z[i].s);
 writeln;
 end;
for i:=1 to c do
 for j:=1 to c-1 do
  if z[j].grozhdenia>z[j+1].grozhdenia then
   begin
   k:=z[j];
   z[j]:=z[j+1];
   z[j+1]:=k;
   end;
   writeln('Студенты имеющие не менее 2х пятерек: ');
for i:=1 to c do
 begin
 b:=false;
 for j:=1 to o do
  if z[i].k[j]=5 then
   if b then
    begin
    writeln(z[i].familia);
    b:=false;
    end
   else b:=true;
 end;
end.