--Autore:Treppiedi Luigi
--Esercizio 4.4
--Il programma restituisce in ordine alfabetico due stringhe di caretteri

With Ada.Text_Io, Ada.Integer_Text_IO;

use Ada.Text_Io, Ada.Integer_Text_IO;


procedure alfabetico is

stringa1, stringa2 : string(1..100);
lung1, lung2 :natural;

begin
	Put("Immetti la prima parola: ");
	Get_line(Item => stringa1,last => lung1);
	
	Put("Immetti la seconda parola: ");
	Get_line(Item => stringa2,last => lung2);
	
	If stringa1(1..lung1)=stringa2(1..lung2) then
	
	New_line;
	Put("Le due stringhe sono uguali");
	New_line;
	Put_line(stringa1(1..lung1));
	Put_line(stringa2(1..lung2));
	
	ElsIf stringa1(1..lung1)>stringa2(1..lung2) then
	
	New_line;
	Put_line(stringa2(1..lung2));
	Put_line(stringa1(1..lung1));
	
	Else
	
	New_line;
	Put_line(stringa1(1..lung1));
	Put_line(stringa2(1..lung2));
	End If;
	
End alfabetico;