program sorteerimine;
var
nimi: array[1..1000] of string[30];
abi: string;
i, j, n, min: integer;
korras: boolean;
fs, fv: text;

procedure algus;
begin
 assign(fs, 'tud1.txt');
 assign(fv, 'tud1sort.txt');
 reset(fs);
 rewrite(fv);
 n:=0;
 while not eof(fs) do
 begin
  n:=n+1;
  readln(fs, nimi[n]);
 end;
end;

procedure sorteeri;
begin
  for i:=1 to n-1 do
  begin
  min:=i;
   for j:=i to n do
   begin
    if nimi[j]<nimi[min] then min:=j;
   end;
  abi:=nimi[i];
  nimi[i]:=nimi[min];
  nimi[min]:=abi;
  end;
end;

procedure ots;
begin
 for i:=1 to n do
  writeln(fv, nimi[i]);
 close(fs);
 close(fv);
end;



begin
 algus;
 sorteeri;
 ots;
end.