nb d’apparition d'un caractère dans une chaîne

ÉNONCÉ
écrire un programme permettant de :
- Saisir une chaîne de caractères (ch)
- Saisir un caractère (car)
- Afficher le nombre d'apparition de car dans ch.

PASCAL
Méthode 1
program app;
uses wincrt;
var ch:string;
car:char;
nc,n,i:integer;
begin
writeln('saisir une chaine');
readln(ch);
writeln('saisir un caractere');
readln(car);
n:=length(ch); nc:=0;
for i:=1 to n do
if ch[i]= car then nc:=nc+1;
writeln('le nombre d''apparition de ',car,' dans ',ch,' est= ', nc);
end.
Methode 2
program app;
uses wincrt;
var
ch1,ch:string;
car:char;
nc :integer;
begin
writeln('saisir une chaine');
readln(ch);
writeln('saisir un caracter');
readln(car);
nc:=0;
ch1:=ch;
while(pos(car,ch)>0) do
begin
nc:=nc+1;
delete(ch,pos(car,ch),1);
end;
writeln('le nombre d''apparition de ',car,' dans ',ch1,' est= ', nc);
end.