Помогите найти ошибку в программе

var s:string;

n:integer;

begin

write ('Введите предложение на английском языке:') ;

readln (s) ;

for n:=1 to length (s) do

if s[n] = 'a' or 'e' or 'i' or 'o' or 'u' then x:=x+1;

write ('Количество гласных букв = ', x) ;

end.

Var s:string;

n, x:integer;

begin

writeln ('Введите предложение на английском языке:') ;

readln (s) ;

x:=0;

for n:=1 to length (s) do

if (s[n]='a') or (s[n]='e') or (s[n]='i') or (s[n]='o') or (s[n]='u') or (s[n]='y')

then x:=x+1;

/ / можно так:

//if s[n] in ['a','e','i','o','u','y'] then x:=x+1;

write ('Количество гласных букв = ', x) ;

end.

Пример:

Введите предложение на английском языке:

primer

Количество гласных букв = 2