type

rec=record

name:string;

l:integer;

num:array[1..10000] of integer;

end;

var

a:array[1..10000]of rec;

n:integer;

procedure init;

var

s:string;

i,j:integer;

begin

readln(n);

for i:=1 to n do

begin

readln(a[i].name);

readln(s);

a[i].l:=length(s);

for j:=1 to a[i].l do

a[i].num[a[i].l+1-j]:=ord(s[j])-48;

end;

end;

function compare(x,y:integer):boolean;

var

i:integer;

begin

if a[x].l>a[y].l then exit(true);

if a[x].l0) do

dec(i);

if i=0 then exit(false);

if a[x].num[i]>a[y].num[i] then exit(true);

if a[x].num[i]