гласные буквы...., исправление ошибки!!! Опции

[Kristina20]

№1.
Создать массив, который заполняют 15 словами длиной 5-12 символов.
Вывести на экран, сколько процентуально каждое слово содержит гласных..
Помогите найти ошибку и исправьте её,пожалуйсто!!!!!

[volvo]

Kristina20, Дежа-Вю?
Гласные буквы в массиве

Как ты думаешь, если я запостил решение, наверное я его проверил?
Зачем понадобилось менять буквы множества на маленькие? Там же UpCase - перевод в верхний регистр, значит, и сравнивать надо с большими

[Kristina20]

неужели это имеет значение: маленькие или большие!!!сейчас попробую

А У МЕНЯ ВСЁ РАВНО НЕ ПОЛУЧАЕТСЯ!!!!!пишется DIVISSION BY ZERO, когда программа просит ввести слово

[volvo]

Ха... Что ж ты хочешь?

uses crt;
const n=15; { <-- 15, а не 5 - по условию }
var
  mas:array[1..n] of string[12];
  i,j,count:integer;
begin
    clrscr; writeln('ievadiet vardu');
    for i:=1 to n do begin
      readln(mas[i]); { <-- Вводим слово !!! }
      count:=0;
      for j:=1 to length(mas[i]) do
        if upcase(mas[i][j]) in ['A','E','I','O','U']
        then inc(count);
      writeln('vards',mas[i],'sastav',count/length(mas[i]),'% patskanjus');
    end;
end.

Поняла, где ошибка? Ты слово не вводила, естественно, его длина считалась = 0, и ... Деление на 0

[Kristina20]

to4no!!!!vse ponjala,spasibo!!!!