m,k,i,j:integer;

s:string;

a:array[1..1000]of string;

begin

readln(m,k);

for i:=1 to m do readln(a[i]);

for i:=1 to k do

for j:=i+1 to m do

if (length(a[i])>length(a[j]))

or (a[i]>a[j])and(length(a[i])=length(a[j]))

then

begin

s:=a[i];

a[i]:=a[j];

a[j]:=s;

end;

write(a[k]);

end.

0分，郁闷，到底错在哪