Удалить из строки гласные буквы — Pascal(Паскаль)

пример "the ground" = "th grnd"

uses crt;
const gl=['A','a','E','e','I','i','O','o','U','u','Y','y'];
var s:string;
    i:byte;
begin
clrscr;
writeln('Введите строку, содержащую латинские буквы');
readln(s);
for i:=length(s) downto 1 do
if s[i] in gl then delete(s,i,1);
write(s);
readln
end.