traitement sur les chaînes de caractères

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

PASCAL
program occ_car;
uses wincrt;
var
ch:string;
car:char;
app,i:integer;
procedure saisie(var ch:string);
begin
writeln('saisir une chaine');
readln(ch);
end;
procedure affichage(car:char;app:integer);
begin
writeln('le nombre d''apparition de ',car, ' est= ',app);
end;
begin
saisie(ch);
repeat
car:=ch[1];
app:=0;
while (pos(car,ch)<>0) do begin
app:=app+1;
delete(ch,pos(car,ch),1);
end;
affichage(car,app);
until length(ch)=0;
end.