Дан текст из строчных латинских букв. Составить программу определения количества гласных букв (a,e,i,o,u)

var
  i, k: integer;
  s: string;
 
begin
  k := 0;
  readln(s);
  for i := 1 to length(s) do
    if s[i] in ['a', 'e', 'i', 'o', 'u'] then
      inc(k);
  writeln(k);
end.

s[i] in ['a', 'e', 'i', 'o', 'u']

var
  i, k: integer;
  s: string;
  gl: set of char;
 
begin
  k := 0;
  readln(s);
  gl := ['a', 'e', 'i', 'o', 'u'];
  for i := 1 to length(s) do
    if s[i] in gl then
      inc(k);
  writeln(k);
end.

Program cal;//Дан текст из строчных латинских букв. Составить программу определения количества гласных букв (a,e,i,o,u), встречающихся в тексте.
Uses CRT;
const
 g=['a','e','i','o','u'];
  var
 t:string;
 i,n:integer;
 
 begin
 write('Напишите предложение: ');
 readln(t);
 n:=0;
 for i:=1 to length(t) do
  begin
   if t[i] in g then n:=n+1;
  end;
 writeln('Количество гласных букв =',n);
 readln;
 end.

Program cal;//Дан текст из строчных латинских букв. Составить программу определения количества гласных букв (a,e,i,o,u), встречающихся в тексте.
Uses CRT;
  var
 t:string;
 i,n:integer;
 g: set of char;
 
 begin
 write('Напишите предложение: ');
 readln(t);
 n:=0;
 g:=['a','e','i','o','u'];
 for i:=1 to length(t) do
  begin
   if t[i] in g then n:=n+1;
  end;
 writeln('Количество гласных букв =',n);
 readln;
 end.