procedure Sort(e1: array of Entraint; n: integer);
var
    i: integer;
    j: integer;
    t: Entraint;
begin
    for i:= 0 to n-1 do
    begin
        for j := 0 to n-i-2 do
        begin
            if(Mark(e[j]) < Mark(e[j+1])) then
            begin
                t := e[j];
                e[j] := e[j+1];
                e[j+1] := t;
            end;
        end;
    end;
end;

procedure Result(e1: array of Entraint; n: integer);
var
    i: integer;
begin
    for i := 0 to n-1 do
    begin
        println(e[i].name + ' ' + e[i].surname);
    end;
end;

begin
    filename := 'entraints.txt';
    assign(f1, filename);
    Reset(f1);
    readln(f1,n);
    e := new Entraint[n];
    for i := 0 to n-1 do
    begin
        readln(f1, line);
        a1 := line.Split(' ');
        e[i].name := a1[0];
        e[i].surname := a1[1];
        e[i].age := StrToInt(a1[2]);
        readln(f1, line);
        marks :=  line.Split(' ');
        for j:= 0 to 4 do
            e[i].marks[j] := StrToInt(marks[j]);
    end;
    close(f1);

    Sort(e, n);

    Result(e, n);
end.