Подсчитать количество гласных букв в тексте

const
glas = ['а', 'е', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я','A','Е','И','О','У','Ы','Э','Я'];
var
t:text;
s:char;
n,i:integer;
begin
Assign(t,'c:\input.txt');
Reset(t);
n:=0;
While not eof(t) do
   begin
   read(t,s);
    if s in glas then inc(n);
   end;
Close(t);
write(n);
end.

const
glas = ['а', 'е', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я','A','Е','И','О','У','Ы','Э','Я'];
var
t:text;r:boolean;
s:char;
n,i:integer;
begin
   Assign(t,'c:\input.txt');
   Reset(t);
   n:=0;
    While not eof(t) do
      begin
      read(t,s);
      if s in glas then
         begin
         r:=true;
         inc(n);
         end
      else
         begin
           r:=false;
         end;
     Close(t);
     write(n);
    end;
 end.

const
glas = ['а', 'е', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я','A','Е','И','О','У','Ы','Э','Я'];
var
t:text;
s:char;
n,i:integer;
flag: boolean;
browse:string[200];
begin
flag:=false;
 while not flag do
begin
writeln('Введите путь к файлу');
readln(browse);
flag:=FileExists(browse);
if flag=false then writeln('невозможно найти файл'); end;
Assign(t,browse);
Reset(t);
n:=0;
While not eof(t) do
   begin
   read(t,s);
    if s in glas then inc(n);
   end;
Close(t);
write(n);
end.