Programme pascal

Bonjour à tous !!
pouvez vous m'aider à trouver la faute que j'ai commise dans ce programme qui sert a afficher les occurences des voyelles dans une chaine de caractères donnée

le voici :

program occurence_j;
uses wincrt;
var
ch : string;
i : integer;

procedure saisie (ch: string);
begin
repeat
writeln('donnez une chaine de caractères');
readln(ch);
until ch<>'';
end;

function occurence (ch : string):string;
var
occ : string;
begin
for i := 1 to length(ch) do
begin
if (ch[i]='a') or (ch[i]='o') or (ch[i]='u') or (ch[i]='i') or (ch[i]='e') or (ch[i]='y') then
begin
occ := occ + ch[i] + ' ';
end;
end;
occurence := occ;
end;

begin
saisie(ch);
writeln(occurence(ch));
end.


merci pour votre aide :)