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

const
sog:set of char=['b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','z'];
sym:set of char=['0','1','2','3','4','5','6','7','8','9','+','-','*'];
 
function Count(s:string):integer; {вычисляем количество согласных в группе букв}
var
i,k:integer;
begin
k:=0;
for i:=1 to length(s) do if s[i] in sog then inc(k);
Count:=k;
end;
 
var
st,curst:string[81];
i,k,p:integer;
flag:boolean;
begin
read(st);
st:=st + '*';
curst:='';
k:=80;
flag:=true;{определяет есть ли в строке группы букв, при true - нет}
for i:=1 to length(st) do
if not(st[i] in sym) then curst:=curst + st[i]
 else if length(curst)>1 then
       begin
        flag:=false;
        p:=Count(curst);
        curst:='';
        if (p<=k) and (p>0) then k:=p;{определяем наименьшее количество согласных в группе букв}
       end
       else curst:='';
if flag then write('В строке нет ни одной группы букв') else
if p=0 then write('В строке нет ни одной искомой группы букв') else
for i:=1 to length(st) do
if not(st[i] in sym) then curst:=curst + st[i]
 else
  if length(curst)>1 then
   begin
    if Count(curst)=k then writeln(curst);{выводим все группы с минимальным количеством согласных}
    curst:='';
   end
   else curst:='';
end.