Programe Chaine De Caractere

uses wincrt;
type ind = (a,e,i,o,u,y);
var F : array [ind] of integer;
ch:string;
j:integer;
k:ind;
begin
writeln('Saisir une chaîne de caractères'); readln(ch);
for j:=1 to length(ch) do
case upcase(ch[j]) of
'A' : inc(F[A]); {c.à.d. : F[A]:=F[A]+1}
'E' : inc(F[E]);
'I' : inc(F[I]);
'O' : inc(F[O]);
'U' : inc(F[U]);
'Y' : inc(F[Y]);
end;
For k:=a to y do
begin
if k=a then writeln ('L''occurrence de "A" est ',F[k]);
if k=e then writeln ('L''occurrence de "E" est ',F[k]);
if k=i then writeln ('L''occurrence de "I" est ',F[k]);
if k=o then writeln ('L''occurrence de "O" est ',F[k]);
if k=u then writeln ('L''occurrence de "U" est ',F[k]);
if k=y then writeln ('L''occurrence de "Y" est ',F[k]);
end;
end.