POLANN_B

Type
    tStudent = Record
      fSurname: String[40];
      fGroup: Integer;
      fSubjC: Array [1..5] Of Char;
      fAvSc: Integer;
    End;
    TStuds = Array [1..25] Of tStudent;
Var
    I, II: Integer;
    FD: File Of tStuds;
    Studs, DStuds: tStuds;
    TempSt: tStudent;
    X, DI, SI, SJ: Integer;
Begin
    Assign(FD, 'students.dat');
    Reset(FD);
    Read(FD, Studs);
    Close(FD);
    Write('Input subject number [1..5]: ');
    ReadLn(X);
    DI:= 0;
    For I:= 1 To 25 Do With Studs[I] Do Begin
      If fSubjC[X] = '1' Then Begin
        Inc(DI);
        DStuds[DI]:= Studs[I];
      End;
    End;
    If DI > 8 Then Begin
      For SJ:= 1 To DI - 1 Do
        For SI:= 1 To DI - SJ Do
          If DStuds[SI].fAvSc > DStuds[SI + 1].fAvSc Then Begin
            TempSt:= DStuds[SI]; DStuds[SI]:= DStuds[SI + 1];
            DStuds[SI + 1]:= TempSt;
          End;
    End;
    For I:= 1 To DI Do If I <= 8 Then WriteLn(DStuds[I].fSurname);

    ReadLn;
End.