program mmn;
uses crt;
type r=record
fio:string;
oc:integer;
end;
var f:text;
i,n,j,z,nom:integer;
a:array[1..20] of r;
s:string;
function fam(var g:string):string;
var h:string;p:integer;
begin
h:='';
p:=1;
While g[p]<>' 'do
begin
h:=h+g[p];
inc(p);
end;
h:=h+' '+g[p+1];fam:=h;
end;
BEGIN
ClrSCr;
Assign(f,'input.txt');reset(f);
While not eof(f) do
begin
inc(n);
readln(f,a[n].fio);
readln(f,a[n].oc);
end;close(f);
assign(f,'output.txt');rewrite(f);
writeln(f,'kol-vo:',n);
Writeln(f,'Mesta:');
for i:=1 to n do
begin
z:=a[i].oc;
s:=a[i].fio;nom:=i;
write(f,i,':');
for j:=i+1 to n do
if a[j].oc>z
then begin
z:=a[j].oc;
s:=a[j].fio;
nom:=j;
end;
a[nom].oc:=a[i].oc;a[i].oc:=z;
a[nom].fio:=a[i].fio;a[i].fio:=s;
a[i].fio:=fam(a[i].fio);
writeln(f,a[i].fio);
end;
close(f);
readln;
END.