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

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;beginwriteln('Введите предложение на английском языке:');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