var
 s:string;
 maxid,max,i,j,n,t:longint;
 players:array[1..1000]of string;
 points,results:array[1..1000]of longint;
procedure rd(var s:string; var n:longint);
 var
  c:string;
  i,err:integer;
 begin
  s:='';
  readln(c);
  i:=1;
  while c[i]<>' ' do
   Begin
    s:=s+c[i];
    inc(i);
   end;
  delete(c,1,i);
  val(c,n,err);
 end;
Begin
 readln(n);
 for i:=1 to n do
  Begin
   rd(s,t);
   players[i]:=s;
   points[i]:=t;
  end;
 max:=-10005000;
for i:=1 to n do
 for j:=1 to n do
  Begin
   if players[i]=players[j] then inc(results[i],points[j]);
   if results[i]>max then Begin maxid:=j; max:=results[i] end
                      else if (max=results[i])and(j<maxid) then maxid:=j;
 end;
 write(players[maxid]);
end.