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.