Туплю в паскале

попробуй написать if str[ i] in ['У','у', ну и остальные] then
тогда ты будешь использовать множество
а иначе тут никак

Доброго времени суток.

Есть более элегантное решение. Объявляете строковую константу, состоящую из гласных букв.

const Vocalic = 'УуЕеЫыАаОоЭэЯяИиЮю';

А дальше в программе просматриваете свою строку и ищете очередной символ строки в этой константе. Если находите, то увеличивете счетчик.

for j:=1 to Length(str) do
if Pos(str[j], Vocalic) > 0 then n:=n+1;

И далее по тексту.

Для повышения скорости есть смысл просматривать строку от конца к началу, чтобы ее длина вычислялась один раз при инициализации упрапвляющей переменной цикла.

for j:=Length(str) downto 1 do

Удачи!

тогда уж так пиши
for i:=1 to length(str) do if (str [ i ] ='У') or (str [ i ] ='у') or (str [ i ] ='Е') or (str [ i ] ='е') ну и так все перечисли через OR

немного оффтопа, таксказать типс унд трикс:
если все элементы в перебираемой строке брать в лоу-кейсе, то вариантов сравнения будет в два раза меньше, а время отводимую на эту операцию сократится.. .

афтор, а чем не устраивает вариант от Denis Bessonov ???

if str='У', 'у', 'Е','е','Ы','ы','А','а','О','о','Э','э','Я','я','И','и','Ю', 'ю'
так делать нельзя!! !
if (str='у' )or(str='е')or... then

блин сам долго с паскалем парился но слава богу он у нас закончился неделу назад а так почти год с лищним изучали