Pascal/Turbo Pascal - determinar que caracteres se repitieron y cuantas veces

{Mira esto}

 program cuentaletras;

   uses

      crt;

   type

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

   var

     cuent : letras;

     i : integer;

     cadena : string;

     letra : char;

   begin

      clrscr;

      i := 1;

      fillchar(cadena,256,' ');

      cadena[0] := chr(255);

      write('   Entre Cadena : ');

      readln(cadena);

     while i < length(cadena) do

     begin

        cuent[upcase(cadena[i])] := cuent[upcase(cadena[i])] + 1;

        i := i + 1;

     end;

     clrscr;

     writeln;

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

     if cuent[letra] > 0 then

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

     readkey;

   end.

{A ver si esto sirve de ayuda}

 program letras;

   type

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

      letra = array[1..255] of char;

   var

     texto : letra;

     cuenta : let;

     i, t : integer;

     le : char;

   begin

     i := 1;

     write(' Entre texto : ');

     while le <> '.' do

     begin

     read(le);

     if le = '.' then

   else

     begin

     texto[i] := le;

     cuenta[upcase(le)] := cuenta[upcase(le)] + 1;

     i := i + 1;

     end;

   end;

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

     if cuenta[le] > 0 then

     writeln('   ',le,'    ',cuenta[le]);

     readln;

     readln;

   end.