Напечатать те слова, которые имеют больше двух гласных букв

var
  str: array [1..50] of string;
  i, k, l, j: integer;
  s, s1: string;
  st: set of char;//.y,u,i,o,a);
 
begin
  writeln('Введите строку');
  readln(s);
  k := 0;
  i := 1;
  
  
  st := ['a', 'e', 'y', 'u', 'i', 'o', 'A', 'E', 'Y', 'U', 'I', 'O',
  'а', 'у', 'е', 'ы', 'о', 'э', 'я', 'и', 'ю', 'А', 'У', 'Е', 'Ы', 'О', 'Э', 'Я', 'И', 'Ю'];
  while i <= length(s) do
  begin
    s1 := '';
    k := k + 1;
    while(s [i] <> ',') and (i <= length(s)) do
    begin
      s1 := s1 + s[i];
      i := i + 1;
    end;
    while ((s[i] = '') or (s[i] = ',')) and (i <= length(s)) do
      i := i + 1;
    str[k] := s1;
  end;
  for i := 1 to k do
  begin
    l := 0;
    for j := 1 to length(str[i]) do
    begin
      if str[i][j] in st then l := l + 1;
    end;
    if l > 2 then write(str[i], '  ');
  end;
end.

var s,sl,sg: string;
    i,j,k: integer;
begin
writeln('Введите строку');
readln(s);
s:=s+',';
sl:='';
sg:='eyuioaEYUIOAёуеыаоэяиюЁУЕЫАОЭЯИЮ';
for i:=1 to length(s) do
    if s[i]<>',' then sl:=sl+s[i] else
       begin
       k:=0;
       for j:=1 to length(sl) do
           if pos(sl[j],sg)<>0 then k:=k+1;
       if k>2 then write(sl,',');
       sl:='';
       end;
end.