unit rab;
interface
 type
  studs=record
  fio: string[30];
  bal1:integer;
  bal2:integer;
  bal3:integer;
  fo:string[10];
 end;
 ta=array[1..25] of studs;
 function Sr(i:integer; arr:ta):real;
 procedure Sort( var a:ta; n:integer);

implementation
 function Sr(i:integer;arr:ta):real;
begin
 Sr:=(arr[i].bal1+arr[i].bal2+arr[i].bal3)/3;
end;

 procedure Sort( var a:ta; n:integer);
var buf:studs; g,j:integer;
begin
for g:=1 to n-1 do
  for j:=1 to n-g do
  if sr(j,a)>=4 then
   if a[j].fio>a[j+1].fio then
    begin
     buf:=a[j];
     a[j]:=a[j+1];
     a[j+1]:=buf;
    end;
 end;
 end.