Methode de recherche d'occurences

program Occurrences;

const N = 10;
var T : Array[1 .. N] of Char;
I, NbreOcc : Integer;
Element : Char;
Existe : Boolean;   

begin

T[1] := 'A';
 T[2] := 'A';
  T[3] := 'B';
   T[4] := 'C';
    T[5] := 'C';
 T[6] := 'C';
  T[7] := 'K';
   T[8] := 'F';
    T[9] := 'N';
     T[10] := 'N';

 NbreOcc := 1;

  I := 1;
while I <= N do begin
 if T[I] = T[I + 1] then
  NbreOcc := NbreOcc + 1;
   if T[I] <> T[I + 1] then begin
    WriteLn('Le nombre d''occurrence de l''element ',
     T[I], ' est ', NbreOcc);
       NbreOcc := 1; end;
I := I + 1;
end;

WriteLn;

 Write('Entrez l''element à rechercher ses occurrences : ');
Readln(Element);
 Write('Positions dans le tableau des occurrences de l''element ', Element, ' : ');

Existe := False;
I := 1;
   while I <= N do begin
if T[I] = Element then begin
  Existe := True;
   Write(I, ', '); end;
if (T[I] <> Element) and (Existe) then I := N;
I := I + 1;
end;

if not Existe then Write('Aucune');

Readln;

  { TODO -oUser -cConsole Main : placez le code ici }
end.