{
Descripcion: Evalua la cantidad de ocurrencias de las letras en una palabra
www.mis-algoritmos.com
}
uses
	crt;{Cargamos libreria de la pantalla}
var
	letras		: array [1..256] of integer;
	cont		: integer;
	enunciado	: string;
 
begin
	clrscr;{Limpiamos pantalla}
	for cont:=1 to 255 do{Rellenamos vector de 255 con ceros}
		begin
			letras[cont]:=0;
		end;
	readln(enunciado); {Leemos enunciado}
	for cont:=1 to length(enunciado) do
		begin
			{Sumamos en 1 si encontramos una letra en tal posicion}
			letras[ord(enunciado[cont])]:=letras[ord(enunciado[cont])]+1;			        	
		end;
 
	for cont:=1 to 255 do
		begin
			{Si la posicion de es mayor a cero en su contenido mostramos la
			letra que le corresponde y la cantidad de veces que la encotramos}
			if letras[cont]>0 then
				writeln('Letra ',chr(cont),' :',letras[cont]);
		end;
	readkey;{Esperamos una tecla para finalizar}
end.