Program namesort;
  var a:Array[1..10] of string;
      i,j:integer;
      t:string;
  Begin
    for i:=1 to 10 do
      readln(a[i]);
    for i:=1 to 9 do
      for j:=i+1 to 10 do
        if a[j]<a[i] then
          begin
            t:=a[i];
            a[i]:=a[j];
            a[j]:=t;
          end;
    WRITELN;
    for i:=1 to 10 do
      writeln(a[i]);
  End.
(听说过QWORD吗?那是2的65次方-1.去查查它的范围，你就明白了。）