Une problème du pascal (boucles & testes)

Bonjour,
j'ai cet exercice qui dit:<< on se propose un programme qui saisit une phrase puis calcule et affiche le nombre des voyelles.NB:la phrase est en minuscule .>>

et je n'ai pu pas le terminer :

uses wincrt;
var a:string;
aa,ii,uu,oo,ee,j:integer;
begin
writeln('donner une phrase:');
readln(a);
repeat
aa:=pos('a',a);
if (aa>0) then
j:=j+1;
ee:=pos('e',a);
if (ee>0) then
j:=j+1;
ii:=pos('i',a);
if (ii>0) then
j:=j+1;
uu:=pos('u',a);
if (uu>0) then
j:=j+1;
oo:=pos('o',a);
if (oo>0) then
j:=j+1;
until( ????????);
writeln('nombre de voyelle est:',j);
end.

qui peut svp m'aider??!!