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

Формулировка задачи:

Написать программу на паскале, которая будет определять все ли гласные содержаться в заданной строке....

Решение задачи: «Определить, все ли гласные содержатся в заданной строке»

Листинг программы

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.

Объяснение кода листинга программы

Константа gl объявляется со значением aeiou - это содержит все гласные буквы в английском алфавите.
Объявляется переменная s типа string для хранения введенной пользователем строки.
Объявляются переменные i и k типа integer для использования в циклах и проверке условий.
Выводится сообщение Введите строку из строчных латинских букв.
Пользователь вводит строку, сохраняемую в переменной s.
Инициализируется переменная k со значением 0, а переменная i со значением 1.
Выполняется цикл while пока i меньше или равно длине gl и k равно 0.
В условии цикла проверяется, если позиция текущей гласной буквы из gl в строке s равна 0, то устанавливается значение k в 1, иначе увеличивается значение i.
После выхода из цикла проверяется значение k. Если k равно 0, выводится сообщение Все гласные есть в строке, иначе выводится сообщение Не все гласные есть в строке.