nb d'apparence d'un caractère dans un tableau

ÉNONCÉ
Soit T un tableau de n caractère (2≤ n≤ 20). On se propose d'écrire un programme Pascal qui saisit n et T puis affiche le nombre d'occurrences d'un caractère c donné, dans le tableau T.
N.B:
La solution doit comporter au moins deux modules.

PASCAL
program tab_car;
uses wincrt;
type
tab=array[1..20] of char;
var
t:tab;
app,n,i:integer;
c:char;
procedure lecture (var t:tab;var n:integer);
var
i:integer;
begin
write('saisir n: ');
repeat
readln(n);
until n in [2..20];
for i:=1 to n do
begin
write('saisir le caractére l''element n°', i,': ');
readln(t[i]);
end;
end;
procedure saisie(var c:char);
begin
write('saisir un caractére: ');
readln(c);
end;
function apparition(t:tab;n:integer;c:char):integer;
var
nap:integer;
begin
nap:=0;
for i:=1 to n do if t[i]= c then nap:=nap+1;
apparition:=nap;
end;
procedure affichage(app:integer;c:char);
begin
writeln('le nombre d''apparition de ',c,' est= ',app);
end;
begin
lecture(t,n);
saisie(c);
app:=apparition(t,n,c);
affichage(app,c);
end.