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

uses crt;
const b=['a'..'z'];
      z=['0'..'9','+','-','*'];//мне кажется Вы пропустили знак минус,
      gl=['a','e','i','o','u']; //во всех таких задачах есть и не все гласные
var ds:set of char;
    c:char;
    s,s1:string;
    n,i,j,p,g,mx,k:byte;
begin
writeln('Введите строку из малых английских букв и знаков +  * ');
writeln('длиной до 80 символов, окончание ввода Enter');
s:='';
n:=0;{длина строки}
ds:=b+z;{допустимые символы}
repeat
c:=readkey;{читаем код клавиши}
if c in ds then{если допустимый}
 begin
  n:=n+1;{считаем}
  s:=s+c;{добавляем к строке}
  write(c);{выводим на экран}
 end;
if (c=#13)or(n=80) then writeln;{если Enter или 80, на новую строку}
until (c=#13)or(n=80);{конец ввода}
p:=0;{нет слов с гласными буквами}
g:=0;{нет групп букв}
{будем искать максимальное количество данных букв}
i:=1;
mx:=0;
while i<=n do{пока не конец строки}
if(s[i] in b)and((i=1)or(s[i-1] in z)) then{если буква и она первая или перед ней знак}
 begin
  g:=1;{есть группы букв}
  s1:='';{слово}
  j:=i;
  while(j<=n)and(s[j] in b) do{пока не конец и не знак}
   begin
    s1:=s1+s[j];{составляем слово}
    j:=j+1;
   end;
  k:=0;
  for j:=1 to length(s1) do
  if s1[j] in gl then k:=k+1;{если гласные, считаем}
  if k>mx then
   begin
    p:=1; {есть с гласными}
    mx:=k;
   end;
  i:=i+length(s1);{перешагиваем через слово}
 end
else i:=i+1;{если знак, пропускаем}
if g=0 then write('Нет групп букв')
else if p=0 then write('Нет слов с гласными буквами')
else  {иначе будем искать все слова с максим. кол. гласн.}
 begin
  writeln('Группы букв с максимальным количеством гласных');
  i:=1;
  while i<=n do{пока не конец строки}
  if(s[i] in b)and((i=1)or(s[i-1] in z)) then{если буква и она первая или перед ней знак}
   begin
    s1:='';{слово}
    j:=i;
    while(j<=n)and(s[j] in b) do{пока не конец и не знак}
     begin
      s1:=s1+s[j];{составляем слово}
      j:=j+1;
     end;
    k:=0;
    for j:=1 to length(s1) do
    if s1[j] in gl then k:=k+1;{если гласные, считаем}
    if k=mx then  writeln(s1);
    i:=i+length(s1);{перешагиваем через слово}
   end
  else i:=i+1;{если знак, пропускаем}
 end;
end.