{$mode TP}

Program Zadanie_3;
uses crt;
var f,g:text;
    str:array [1..5] of string;
procedure vivod (var f:text);
var i:integer;
begin
  reset(f);
  i:=1;
  while not eof(f) do begin
    readln(f,str[i]);
    writeln(str[i]);
    i:=i+1;
  end;
end;

procedure alfavit;
var
  x: string;
  i,j: integer;
begin
  reset(f);
  rewrite(g);
  i:=1;
  for i:=1 to 5 do begin
    for j:=5 downto i + 1 do begin
      if str[j - 1]>str[j] then begin
        x:=str[j];
        str[j]:=str[j-1];
        str[j-1]:=x;
      end;
    end;

    writeln (str[i]);
    writeln (g, str[i]);
   end;

   close(f);
   erase(f);
   reset(g);
end;

BEGIN
  clrscr;
  assign (f,'BOLNITCA.txt');
  assign (g,'temp.txt');
  vivod(f);
  readln;
  clrscr;
  alfavit;
  readln;
end.