Aide en pascal svp :(

program Nbre_Apparition;

var Ch : String;
Car : char;
I, L, NbreApparition : Integer;

begin

WriteLn('Saisir une chaine de caractères');
ReadLn(Ch);
WriteLn('Saisir un caractère');
ReadLn(Car);
L := Length(Ch);

{ la fonction Length renvoie le nombre de caractères de la chaine
passée en parametre, dont le premier indice est 1}
{La variable L recoit le nombre de caracteres de la chaine Ch }

NbreApparition := 0;
{ Initialisation du compteur de comptage }

for I := 1 to L do begin
{ On parcoure les caracteres un à un }

if Ch[I] = Car then
{ On compare si le caractere d'indice I à la meme representation
que le caractere Car }

NbreApparition := NbreApparition + 1;
{ Si Oui en incremente le compteur de comptage de 1 }
end;

WriteLn;

WriteLn('Le caratere ','" ', Car, ' "', ' est apparu ', NbreApparition, ' fois');
{ On affiche le nombre d'apparition du caractere Car dans la chaine Ch }

ReadLn;

end.

A toi de faire le reste
Bonne chance

Salut

Peut tu nous montrer ce que tu à tenté de faire ?