Pascal/Turbo Pascal - Conteo de caracteres repetidos

{Mira como mínimo se tiene que temer o un string o un array de char para poder después contar

 la letras o caracteres que hay iguales en un testo te paso esto a ver si te ayuda a entenderlo.}

  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.

caracter,largo,anterior : integer;

repetidos : boolean;

begin

ReadLn(caracter);

repetidos:= false;

largo:= 0;

while not repetidos and (caracter <> .) do

begin

	(* aca tendria que comparar los caracteres y si son iguales suma 1 al contadro largo *)

	(* tiene que ser caracter a caracter tendria que comparar la variable caracter con la variable anterior*)

	largo:= largo + 1;

	(* aca le diria que la variable anterior es igual a la variable caracter para que despues la compare*)

	anterior:= caracter;

	repetidos:= caracter = anterior;

	(*vuelve a leer*)

	ReadLn(caracter);

end;

wtriteln ( 'L=<',largo'> C=<',caracter'>');

end.

{Esta es una forma pero podéis apreciar la cantidad de variables que tiene}

program cuentalt;

  var

    A1,B1,C1,D1,E1,F1,G1,H1,I1,J1,K1,L1,M1,N1,O1,P1,Q1,

                          R1,S1,T1,U1,V1,W1,X1,Y1,Z1 : integer;

    A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z : integer;

    entrada, texto : char;

    l2 : integer;

  begin

      for l2 := 1 to 26 do

      begin

        for t := 1 to 80 do

        begin

        write(' ');

        end;

        writeln;

      end;

      l2 := 1;

      write('Entre Los Caracteres : ');

      repeat

      read(texto);

      if texto <> '.' then

      begin

   case texto of

 'A','a' : begin A := A + 1; if A1 = 0 then A1 := l2; end;

 'B','b' : begin B := B + 1; if B1 = 0 then B1 := l2; end;

 'C','c' : begin C := C + 1; if C1 = 0 then C1 := l2; end;

 'D','d' : begin D := D + 1; if D1 = 0 then D1 := l2; end;

 'E','e' : begin E := E + 1; if E1 = 0 then E1 := l2; end;

 'F','f' : begin F := F + 1; if F1 = 0 then F1 := l2; end;

 'G','g' : begin G := G + 1; if G1 = 0 then G1 := l2; end;

 'H','h' : begin H := H + 1; if H1 = 0 then H1 := l2; end;

 'I','i' : begin I := I + 1; if I1 = 0 then I1 := l2; end;

 'J','j' : begin J := J + 1; if J1 = 0 then J1 := l2; end;

 'K','k' : begin K := K + 1; if K1 = 0 then K1 := l2; end;

 'L','l' : begin L := L + 1; if L1 = 0 then L1 := l2; end;

 'M','m' : begin M := M + 1; if M1 = 0 then M1 := l2; end;

 'N','n' : begin N := N + 1; if N1 = 0 then N1 := l2; end;

 'O','o' : begin O := O + 1; if O1 = 0 then O1 := l2; end;

 'P','p' : begin P := P + 1; if P1 = 0 then P1 := l2; end;

 'Q','q' : begin Q := Q + 1; if Q1 = 0 then Q1 := l2; end;

 'R','r' : begin R := R + 1; if R1 = 0 then R1 := l2; end;

 'S','s' : begin S := S + 1; if S1 = 0 then S1 := l2; end;

 'T','t' : begin T := T + 1; if T1 = 0 then T1 := l2; end;

 'U','u' : begin U := U + 1; if U1 = 0 then U1 := l2; end;

 'V','v' : begin V := V + 1; if V1 = 0 then V1 := l2; end;

 'W','w' : begin W := W + 1; if W1 = 0 then W1 := l2; end;

 'Y','y' : begin Y := Y + 1; if Y1 = 0 then Y1 := l2; end;

 'Z','z' : begin Z := Z + 1; if Z1 = 0 then Z1 := l2; end;

   end;

      end;

      l2 := l2 + 1;

      until texto = '.';

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

   begin

  case entrada of

 'A' : begin if A1 > 0 then writeln('Inicio : ',A1,'   Caracters : ',A,'   Letra : A'); end;

 'B' : begin if B1 > 0 then writeln('Inicio : ',B1,'   Caracters : ',B,'   Letra : B'); end;

 'C' : begin if C1 > 0 then writeln('Inicio : ',C1,'   Caracters : ',C,'   Letra : C'); end;

 'D' : begin if D1 > 0 then writeln('Inicio : ',D1,'   Caracters : ',D,'   Letra : D'); end;

 'E' : begin if E1 > 0 then writeln('Inicio : ',E1,'   Caracters : ',E,'   Letra : E'); end;

 'F' : begin if F1 > 0 then writeln('Inicio : ',F1,'   Caracters : ',F,'   Letra : F'); end;

 'G' : begin if G1 > 0 then writeln('Inicio : ',G1,'   Caracters : ',G,'   Letra : G'); end;

 'H' : begin if H1 > 0 then writeln('Inicio : ',H1,'   Caracters : ',H,'   Letra : H'); end;

 'I' : begin if I1 > 0 then writeln('Inicio : ',I1,'   Caracters : ',I,'   Letra : I'); end;

 'J' : begin if J1 > 0 then writeln('Inicio : ',J1,'   Caracters : ',J,'   Letra : J'); end;

 'K' : begin if K1 > 0 then writeln('Inicio : ',K1,'   Caracters : ',K,'   Letra : K'); end;

 'L' : begin if L1 > 0 then writeln('Inicio : ',L1,'   Caracters : ',L,'   Letra : L'); end;

 'M' : begin if M1 > 0 then writeln('Inicio : ',M1,'   Caracters : ',M,'   Letra : M'); end;

 'N' : begin if N1 > 0 then writeln('Inicio : ',N1,'   Caracters : ',N,'   Letra : N'); end;

 'O' : begin if O1 > 0 then writeln('Inicio : ',O1,'   Caracters : ',O,'   Letra : O'); end;

 'P' : begin if P1 > 0 then writeln('Inicio : ',P1,'   Caracters : ',P,'   Letra : P'); end;

 'Q' : begin if Q1 > 0 then writeln('Inicio : ',Q1,'   Caracters : ',Q,'   Letra : Q'); end;

 'R' : begin if R1 > 0 then writeln('Inicio : ',R1,'   Caracters : ',R,'   Letra : R'); end;

 'S' : begin if S1 > 0 then writeln('Inicio : ',S1,'   Caracters : ',S,'   Letra : S'); end;

 'T' : begin if T1 > 0 then writeln('Inicio : ',T1,'   Caracters : ',T,'   Letra : T'); end;

 'U' : begin if U1 > 0 then writeln('Inicio : ',U1,'   Caracters : ',U,'   Letra : U'); end;

 'V' : begin if V1 > 0 then writeln('Inicio : ',V1,'   Caracters : ',V,'   Letra : V'); end;

 'W' : begin if W1 > 0 then writeln('Inicio : ',W1,'   Caracters : ',W,'   Letra : W'); end;

 'Y' : begin if Y1 > 0 then writeln('Inicio : ',Y1,'   Caracters : ',Y,'   Letra : Y'); end;

 'Z' : begin if Z1 > 0 then writeln('Inicio : ',Z1,'   Caracters : ',Z,'   Letra : Z'); end;

   end;

  end;

  writeln;

  writeln(' Pulse Enter ');

   repeat

      readln(texto);

   until texto = #13;

  end.