Определить, все ли гласные содержатся в заданной строке Pascal(Паскаль)

program glas;
const gl='aeiou';
var s:string;
    i,k:integer;
begin
writeln('Введите строку из строчных латинских букв');
readln(s);
k:=0;
i:=1;
while(i<=length(gl))and(k=0) do
if pos(gl[i],s)=0 then k:=1
else inc(i);
if k=0 then write('Все гласные есть в строке')
else write('Не все гласные есть в строке')
end.