Записи. Выборка

type
 student=record
      fio:string[40];    //фамилия
      grup:string[10];   //группа
      mat:byte;   //математика
      fiz:byte;    //физика
      soch:byte;   //сочинение
      fzr:byte;   //физ-ра
      sbal:real;   //средний балл
 
end;
var
 Form1: TForm1;
 stud:array[1..50] of student;
 stud1:student;
 fz:file of student;
 nzap,x,i,sum,P1,P2:integer;
 
begin
assignfile(fz,'a.txt');
reset(fz);
  while not eof (fz) do begin
  read(fz,stud1);
////////////////////
??????????????
////////////////////
  end;
  closefile(fz);

type
    TStudent = record
        fio: String[40];    //фамилия
        grup: String[10];   //группа
        mat: Byte;   //математика
        fiz: Byte;    //физика
        soch: Byte;   //сочинение
        fzr: Byte;   //физ-ра
        sbal: Real;   //средний балл | зачем он тут?
    end;
    TGroup = record
        name: String[10];
        count: Byte;
    end;
var
    ar: Array Of TGroup;
    stud: TStudent;
    f: File Of TStudent;
    i: Word;
    found: Boolean;
begin
    SetLength(ar, 0);
    Assign(f, 'asd.dat'); ReSet(f);
    while (Not EoF(f)) do
    begin
        Read(f, stud);
        if (stud.sbal = 5) //признак "отличника"
        then
        begin
            i := 0; found := False;
            while ((i < Length(ar)) And (Not found)) do
            begin
                found := (stud.grup = ar[i].name);
                Inc(i);
            end;
            if (found)
            then
                Inc(ar[i - 1].count)
            else
            begin
                SetLength(ar, Length(ar) + 1);
                ar[Length(ar) - 1].name := stud.grup;
                ar[Length(ar) - 1].count := 1;
            end;
        end;
    end;
    Close(f);
    for i := 0 to Length(ar) - 1 do
        with ar[i] do
            WriteLn(name, #9#9, count); //сами украсьте по вкусу.
end.