Pascal/Turbo Pascal - Contas letras

{Mira a ver si esto te ayuda }

program cuentaletras;

 uses

   crt;

  type

     numletras = array['A'..'Z'] of integer;

   var

     letra : numletras;

     texto : string;

     cont : integer;

     let : char;

   begin

      clrscr;

      fillchar(letra,sizeof(letra),0);

      write(' Entre Cadena : ');

      readln(texto);

      for cont := 1 to length(texto) do

      letra[upcase(texto[cont])] := letra[upcase(texto[cont])] + 1;

      clrscr;

      writeln(' **** Resultados ****');

      writeln;

      for let := 'A' to 'Z' do

      if letra[let] > 0 then

      writeln(' ',let,' = ',letra[let]);

      writeln;

      writeln('  >>>> El Texto Fue <<<<');

      writeln('  ',texto);

      readkey;

   end.

PROGRAM LetrasPalabras;

USES Crt;

VAR num, i, j : Integer;

VAR palabra, letra: string;

BEGIN

WRITE('Introduzca una palabra: ');

READLN(palabra);

FOR i := 1 to length(palabra) DO

    BEGIN

    letra := palabra[i];

    num := 0;

    FOR j := 1 to length(palabra) DO

        BEGIN

        IF (letra = palabra[j]) and (palabra[j] <> ' ') THEN

           num += 1;

        END;

    IF (letra <> ' ') THEN

       WRITELN(letra, ' : ', num);

    END;

READLN();

ClrScr;

END.