Дан текст из строчных латинских букв и др знаков. Вычеркнуть из текста все гласные буквы — Pascal(Паскаль)

uses crt;
const gl : set of char = ['a','e','i','o','u','y'];
var st:string;
i:integer;
begin
 clrscr;
 write('-> ');
 readln(st);
 i:=length(st);
 while i>=1 do
 begin
  if st[i] in gl then delete(st,i,1);
  dec(i);
 end;
 writeln(st);
 readln;
end.