Type
 School=Record
         Fam:String[10];
         Class:Byte;
         Mark:Byte;
        End;
Const
 Pup:Array[1..10] of School=((Fam:'Bull';  Class:10; Mark:5),
                             (Fam:'Virt';  Class: 9; Mark:4),
                             (Fam:'Geits'; Class:11; Mark:3),
                             (Fam:'Knut';  Class:11; Mark:5),
                             (Fam:'Kitty'; Class: 9; Mark:2),
                             (Fam:'Barby'; Class:10; Mark:4),
                             (Fam:'Blin';  Class:10; Mark:3),
                             (Fam:'Axis';  Class: 9; Mark:5),
                             (Fam:'Trus';  Class:10; Mark:4),
                             (Fam:'John';  Class:11; Mark:2));
Var
 i,j,Max:Byte;
 n,Aver:Array[1..3] of Byte;

Begin
 For i:=1 to 3 do
  begin
   n[i]:=0;
   Aver[i]:=0;
  end;
 Max:=0;
 For i:=1 to 10 do
  With Pup[i] do
   If Mark>Max then Max:=Mark;
 For i:=1 to 10 do
  If Pup[i].Class=9 then
   begin
    Inc(n[1]);
    Inc(Aver[1],Pup[i].Mark);
   end
  else
  If Pup[i].Class=10 then
   begin
    Inc(n[2]);
    Inc(Aver[2],Pup[i].Mark);
   end
  else
  begin
   Inc(n[3]);
   Inc(Aver[3],Pup[i].Mark);
  end;
 Write('Averaged:');
 For i:=1 to 3 do
  begin
   Aver[i]:=Round(Aver[i]/n[i]);
   write('   ',i+8,' - ',Aver[i]);
  end;
 Writeln;
 Writeln;
 For j:=1 to 3 do
  begin
   For i:=1 to 10 do
    With Pup[i] do
     If Class=j+8 then Writeln(Class:2,Fam:10,Mark:5);
   Writeln;
  end;
 Writeln('Best:');
 For i:=1 to 10 do
  With Pup[i] do
   If Mark=Max then Writeln(Fam:10,Class:5,Mark:5);
 Readln;
End.