nb d'apparence d'un caractère dans une chaîne de caractères

ÉNONCÉ
On veut écrire un programme pascal permettant de :
• Saisir une chaîne de caractères Ch puis un caractère car
• Parcourir la chaîne Ch et afficher l'occurrence de car dans Ch.
N.B:
La solution doit comporter au moins deux modules.

PASCAL
program chaine;
uses wincrt;
var
ch:string;
car:char;
app:integer;
procedure saisie(var ch:string;var car:char);
begin
write('saisir une chaine: ');
readln(ch);
write('saisir un caractére: ');
readln(car);
end;
function apparition(ch:string;car:char):integer;
var
nap:integer;
begin
nap:=0;
while (pos(car,ch)<>0) do begin
nap:=nap+1;
delete(ch,pos(car,ch),1);
end;
apparition:=nap;
end;
begin
saisie(ch,car);
app:=apparition(ch,car);
writeln('le nombre d''apparition du caractère ',car, ' dans la chaîne ',ch, ' est= ',app);
end.