Для каждого слова заданного предложения указать долю согласных

uses crt;
 
var str_max, str_cur, str     : string;
    d, d_max                  : real;
    len, i, cur_len, gl_count : integer;
 
begin
  ClrScr;
  WriteLn('Введите строку и нажмите <Enter>');
  ReadLn(str);
  WriteLn;
  d_max := -1;
  i     := 1;
  len   := length(str);
  while i<len do
  begin
    {пропускаем пробелы}
    while (str[i]=' ') and (i<len) do Inc(i);
 
    str_cur  := '';
    cur_len  := 0;
    gl_count := 0;
    while (str[i]<>' ') and (str[i]<>'.') and (str[i]<>'!') and (i<len) do
    begin
      Inc(cur_len);
      str_cur := str_cur + str[i];
      if (str[i]='a') or (str[i]='e') or (str[i]='i') or
         (str[i]='o') or (str[i]='u') or (str[i]='y') then Inc(gl_count);
      Inc(i);
    end;
 
    if cur_len > 0 then
    begin
      d := (gl_count * 100) / cur_len;
      if d>d_max then
      begin
        str_max := str_cur;
        d_max   := d;
      end;
      {выводим пользователю}
      WriteLn('Слово "',str_cur,'" имеет ',d:2:0,'% гласных.');
    end;
  end;
 
  if d_max>-1 then
  begin
    WriteLn;
    WriteLn('"',str_max,'" - cлово с макс долей гласных - ', d_max:2:0,'%.');
  end;
 
  ReadLn;
end.