uses crt;
type student=record
      surname:string;
      mark:array [1..3] of 2..5;
     end;
     gr=array[1..20] of student;
var f,nf:file of gr;
    group,goodgroup:gr;
    i,j,n:integer;
begin clrscr;
      write ('Input number of students (1..20): ');
      readln (n);
      clrscr;
      assign (f, 'group.dat');
      for i:=1 to n do begin {1}
          writeln;
          writeln ('Input information about ', i, ' student');
          with group[i] do begin
               write ('Surname: ');
               readln (surname); {2}
               write ('Student's marks by session (Math Physics InfTechnologies): ');
               read (mark[1], mark[2], mark[3]);
          end;
      end;
      rewrite(f);
      write (f, group);
      close (f);
      assign (nf, 'goodgroup.dat');
      rewrite (nf);
      clrscr;
      writeln ('Good students:');
      for i:=1 to n do begin
          with group[i] do begin
               if (mark[1]>=3)and(mark[2]>=3)and(mark[3]>=3) then begin
                  inc(j,1);
                  goodgroup[j]:=group[i];
                  write (goodgroup[j].surname, ' ');
               end;
          end;
      end;
      write (nf, goodgroup);
      close(nf);
      readkey;
end.