Вывести список студентов , имеющих не менее 2х пятёрок с сортировкой по возрасту

program files;
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;
   neud=record
  familia1:string;
        end;
var f:file of zap; f1:file of neud;  z:zap; z1:neud;
i,j,h,poz_min,poz_pred:integer; min:integer;
p:boolean;
procedure vyvod1;
begin
writeln ('студенты имеющие не менее 2х пятерок :  ');
reset(f1);
for i:=0 to filesize(f1)-1 do begin
          seek (f1,i);
           read (f1,z1);
          writeln(z1.familia1);
          end; close (f1);
end;
procedure sort;
begin
reset(f);
writeln ('Сортировка по имени:  ');
poz_min:=0;
for j:=1 to filesize(f)-1 do
    begin
    poz_pred:=poz_min;
    min:=-32000;
    seek(f,1);
    for i:=1 to filesize(f)-1 do
        begin
        read(f,z);
        if (z.sv=0) and (filepos(f)-1<>poz_pred) then
           begin
           if z.grozhdenia>min then
              begin
              min:=z.grozhdenia;
 
            poz_min:=filepos(f)-1;
              end;
           end;
        end;
     seek(f,poz_pred);
    read(f,z);
    z.sv:=poz_min;
    seek(f,poz_pred);
    write(f,z);
    end;
seek(f,1);
for i:=1 to filesize(f)-1 do
    begin
    read(f,z);
    if z.s>=4 then
    end;
writeln;
seek(f,0);
read(f,z);
while z.sv<>0 do
      begin
      seek(f,z.sv);
      read(f,z);
      if z.k[1]>=4 then
      writeln(z.familia,' ',z.name,' ',z.otchestvo);
      end;
end;
begin
 clrscr;
assign (f, ' all');
assign (f1, ' neud');
rewrite(f);
rewrite (f1);
z.sv:=0;
for i:=1 to c do
        begin
        z.s:=0;
  writeln ('Фамилия :  ');
        readln (z.familia);
        write (f,z) ;
        writeln ('Имя:  ');
        readln (z.name);
        write (f,z) ;
        writeln ('Отчество:  ');
        readln (z.otchestvo);
        write (f,z) ;
        writeln ('Год рождения:  ');
        readln (z.grozhdenia);
        write (f,z) ;
        writeln ('Группа:  ');
        readln (z.group);
        write (f,z) ;
        writeln ('Оценки (математика, физика,программирование) :  ');
                for j:=1 to o do begin
                read(z.k[j]);
                z.s:=z.s+z.k[j];
                end;
        z.s:=z.s/o;
  write (f,z) ;
        write ('Средний балл студента :  ',z.s);
        writeln;
 
        if z.k[1]>=4 then begin
           reset(f1);
           z1.familia1:=z1.familia1+' '+z.familia+' '+z.name+' '+z.otchestvo+';';
           write (f1,z1) ;
           close (f1);
     end ;
end;
vyvod1;
sort;
close(f);
end.

uses crt;
const c=5;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 ('Îöåíêè (ìàòåìàòèêà, ôèçèêà,ïðîãðàììèðîâàíèå) :  ');
 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;
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.