--PROGRAMMA	Ordina alfabeticamente due parole
--AUTORE		Geo Petrini
--DATA		09.02.2001
--AMBIENTE	Unix - Gnatmake
--VERSIONE	1.0


with Ada.Text_Io;			-- ini librerie
use Ada.Text_Io;

procedure ordina_parole is

parola1,parola2 	: string(1..40) := (others => ' ');
lung1,lung2	: natural;


begin
	new_line(2);
	
	put("Inserisci la 1a parola: ");
	get_line(Item=> parola1, Last=> lung1);
	skip_line;
	put("Inserisci la 2a parola: ");
	get_line(Item=> parola2, Last=> lung2);
	new_line;
	
	if parola1(1..lung1) < parola2(1..lung2) then
	   
	   put(parola1(1..lung1));
	   new_line;
	   put(parola2(1..lung2));
	else
	   put(parola2(1..lung2));
	   new_line;
	   put(parola1(1..lung1));
	end if;

end ordina_parole;