Program RECORDS;
Uses CRT;
Const Max = 10;
Type R = Record
          Litera: String[1];
          Number: Integer;
          End;
Var a: Array[1..Max] of R;
     t: R;
     s: String;
     code: Integer;
     i, j, k: Byte;
     f1, f2: Text;
Begin
ClrScr;
Assign(f1, 'Input.txt'); ReSet(f1);
Assign(f2, 'Output.txt'); ReWrite(f2);
While not (EoF(f1)) do
       Begin
       Inc(i);
       Readln(f1, s);
       a[i].Litera := Copy(s,1,1);
       Val(Copy(s,3,Length(s)-2), a[i].Number, code);
       End;
For j := 1 to i do
     Begin
     For k := j to i do
         Begin
         If (a[k].Number > a[j].Number) then
            Begin
            t := a[k];
            a[k] := a[j];
            a[j] := t;
            End;
         End;
     End;
For j := 1 to i do
     Begin
     Writeln(f2, a[j].Litera,',',a[j].Number);
     End;
Close(f1); Close(f2);
End.