program lab14;
uses crt;
type student=record
      fam:array[1..3] of string; name:array[1..3] of string; ot:array[1..3] of string;
      year: array[1..3] of integer; sf: array[1..3] of integer;
      balot: array[1..3] of integer;
      sh: array[1..3] of string;
      bal:record
        mat:array[1..3] of integer;
        fiz:array[1..3] of integer;
      end;
     end;
var st: student;
    i: integer;
    f,f1: file of student;
begin
assign(f,'c:\1.txt');
rewrite(f);
  with st do
    begin
      for i:=1 to 1 do
      begin
       writeln('Фимилия');
       readln(fam[i]);
       writeln('имя');
       readln(name[i]);
       writeln('отчество');
       readln(ot[i]);
       writeln('год рождения');
       readln(year[i]);
       writeln('год окончания школы');
       readln(sf[i]);
       writeln('Средний бал оттестата');
       readln(balot[i]);
       writeln('Нужно ли общежитие');
       readln(sh[i]);
       writeln('Баллы вступительных экзаменов');
       writeln('Математика:');
       readln(bal.mat[i]);
       writeln('Физика:');
       readln(bal.fiz[i]);
      end;
      Write(f,st);
    end;
reset(f);
  read(f,st);
    with st do
      begin
        for i:=1 to 3 do
          begin
            if (bal.mat[i]<>5) and (bal.fiz[i]<>5) and (balot[i]<>5) then
            begin
            assign(f1,'c:\2.txt');rewrite(f1); Write(f1,st);CLOSE(F1);
            end

            else WriteLn('Не отличники... ',fam[i],name[i],ot[i],' ',year[i],' ',sf[i],' ',balot[i],' ',sh[i],' ',bal.mat[i],' ',bal.fiz[i]);

          end;
      end;
CLOSE(F);
readkey;
end