Pascal abc дана строка, состоящая из маленьких букв и цифр. удалить гласные буквы в конце строки от последней не гласной буквы или цифры (конечные гласные буквы). вывести преобразованную строку и количество удаленных символов

Const
  gl='aeiouy';
 
var
  s:string;
  i,l,n,p:integer;
 
begin
  Write('Введите строку: '); Readln(s);
  l:=Length(s);
  for i:=l downto 1 do
    if pos(s[i],gl)=0 then begin
      p:=i+1; n:=l-p+1;
      Delete(s,p,n);
      Writeln(s); Writeln('Удалено символов: ',n);
      break
      end
end.