Приветик!
Люди, помогите пожалуйста написать программу..Очень нужно, так как сдавать уже в пятницу.
Я конечно понимаю что она лёгкая.
Создать массив, который заполняют 15 словами длиной 5-12 символов.
Вывести на экран, сколько процентуально каждое слово содержит гласных..
Хоть убейте, не доходит,как именно найти эти гласные!!! Нажмите для просмотра прикрепленного файла

Ну, начала же делать правильно

Только цикл должен выглядеть так:

for i:=1 to n do begin
  count := 0; { <--- Будем считать, сколько гласных в i-ом слове }
  for j:=1 to length(mas[i]) do
    if upcase(mas[i][j]) in ['A', 'E', 'I', 'O', 'U'] then inc(count);
  writeln('word ', mas[i], ' contains ', count/length(mas[i]), '% of vowels');
end;

И еще одно: секция Const должна быть описана ПОСЛЕ Uses...

ОГРОМНОЕ СПАСИБО!!!!!!