Составьте программу подсчета гласных букв во введенной строке

uses crt;
const
  gl:array[1..6] of char = ('a','e','y','u','i','o'); {допишите нужные}
 
Var
 s:string;
j,i,k:integer;
begin
clrscr;
writeln('vvedite text ');
readln(s);
k:=0;
textcolor(red);
writeln('гласные:');
For i:=1 to length(s) do
for j := 1 to 10 do
If s[i] = gl[j] then
begin
k:=k+1;
write(s[i]:2);
end;
writeln;
textcolor(green);
writeln('колличесство');
writeln(k);
readkey
end.

Program vowels;
  uses Crt;
  Var
    s : string;
    i,k : byte;
 
BEGIN
  ClrScr;
  Write('Введите строку: '); Readln(s);
  For i := 1 to length(s) do
    If (s[i] = 'а') or
       (s[i] = 'е') or
       (s[i] = 'и') or
       (s[i] = 'ы') or
       (s[i] = 'о') or
       (s[i] = 'у') or
       (s[i] = 'ё') or
       (s[i] = 'э') or
       (s[i] = 'ю') or
       (s[i] = 'я') Then Inc(k);
  Writeln('В строке ',k,' гласных букв.');
  Readkey;
END.

if s[i] in ['а','э','ю','я','ё','о'] then

Program vowels;
uses
  Crt;
Var
  s : string;
  i,k : byte;
BEGIN
  ClrScr;
  k:=0;
  Write('Введите 1-ю строку: '); Readln(s);
  For i := 1 to length(s) do
    if s[i] in ['у','а','э','ю','я','е','ы','ё','о'] then
      Inc(k);
  Writeln('В 1-й строке ',k,' гласных букв.');
  k:=0;
  Write('Введите 2-ю строку: '); Readln(s);
  For i := 1 to length(s) do
    if s[i] in ['у','а','э','ю','я','е','ы','ё','о'] then
      Inc(k);
  Writeln('В 2-й строке ',k,' гласных букв.');
 
  Readkey;
END.