Evalua la cantidad de ocurrencias de las letras en una palabra

pascal:
{
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.
 
¿Ya le viste algún error? Dejanos tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress elimina los tags HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios.

Otro punto antes de comentar, Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

De esta manera el código sale coloreado.

Otro punto importante para muchos que sienten que se les ignora: Todos los comentarios los reviso y en su debido momento los apruebo, pero ojo con el último párrafo.

Para poner los símbolos de las librerías sin que desaparezcan, debes escribir los símbolos de mayor > y menor qué < con su entidad HTML correspondiente, así como el símbolo de &

Mis Algoritmos se reserva el derecho de alterar, publicar o no los comentarios así como cambiar estas reglas de uso.

Si estas de acuerdo, adelante puedes comentar :)

P.D. No le hago tareas a nadie, mejor hagan la mía :P