宇宙总统

var  
 a:array[1..20] of string;  
 x:string;  
 i,n,s:integer;  
begin  
 readln(n);  
 for i:=1 to n do readln(a[i]);  
 s:=1;  
for i:=2 to n do  
 if (length(a[i])>length(a[1]))or(length(a[i])=length(a[1]))and(a[i]>a[1]) then  
 begin 
  s:=i;
  x:=a[1];
  a[1]:=a[i];
  a[i]:=x;
 end;  
 writeln(s);  
 writeln(a[1]);  
end.