Почему неправильно работает удаление символов из строки? - 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);
while i<d do begin
if s[i] in g then delete (s,i,1)
else i:=i+1
end;
writeln ('Ответ:', (s));
end.

почему не работает программа?!?!?!?

Решение задачи: «Почему неправильно работает удаление символов из строки?»

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

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