Строка: В заданном тексте удалить все гласные буквы - PascalABC.NET

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

Добрый день! Помогите, пожалуйста, решить задачку В заданном тексте удалить все гласные буквы

Решение задачи: «Строка: В заданном тексте удалить все гласные буквы»

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

const
g=['e','y','u','i','o','a','E','Y','U','I','O','A','А', 'а' ,'е','ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];
var
s : string;
i : integer;
d : integer;
begin
readln (s);
d := length (s);
i := 1;
while i<=d do begin
if s[i] in g then begin
delete (s,i,1);
d := d -1;
end
else i:=i+1
end;
writeln ('Ответ:', (s));
end.

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

В данном коде удаляются все гласные буквы из заданной строки.

Создается константная строка g, содержащая все гласные буквы, которые нужно удалить.
Создается переменная s, которая будет хранить исходную строку.
Создается переменная i, которая будет использоваться в качестве счетчика символов в строке s.
Создается переменная d, которая будет хранить длину строки s.
В цикле while происходит проверка каждого символа строки s. Если символ является гласной буквой (проверка if s[i] in g), то он удаляется из строки s (метод delete (s,i,1)), и длина строки уменьшается на 1 (d := d -1;). Если символ не является гласной буквой, то счетчик i увеличивается на 1.
В конце программы выводится результат - измененная строка s.