CONST
 Max_number_of_words=500;
VAR
 S:Array[1..Max_number_of_words] of String;
 Dummy:String;
 N,i,j:Word;
 f:Text;
BEGIN
 Assign(f,'D:\unsorted.txt');
 Reset(f);
 N:=1;
 Repeat
  Readln(f,S[N]);
  If Not(EoF(f)) then Inc(N);
 Until EoF(f);
 Close(f);
 for i:=1 to N do
  for j:=1 to N-i do
   if Ord(S[j][1])>Ord(S[j+1][1]) then
    begin
     dummy:=S[j];
     S[j]:=S[j+1];
     S[j+1]:=dummy;
    end;
 Assign(f,'D:\sorted.txt');
 Rewrite(f);
 for i:=1 to N do
  writeln(f,S[i]);
 Close(f);
END.