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

Значит, чего -то не хватает в условии. Например, что она должна делать, когда в строке или все гласные, или нет ни одной.

Я не могу гадать, чего хочет какой-то там сайт. Вашему условию 100% удовлетворяет.

Ясно, спасибо еще раз

У меня в решении если все гласные, ничего не выдает. А может надо выдать что все удалено...

Но тогда как выдать пустую строку?

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      endend.