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.