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

Program text1;
var
f:text;
begin
Assign(f,'q1.txt');
reset(f);
L:=['б','Б','т','Т','и','И','м','М','с','С','ч','Ч','э','Э','ж','Ж','д','Д','л','Л','р','Р','п','П','в','В','ы','Ы','ф','Ф','х','Х','ь','ъ','з','З','щ','Щ','ш','Ш','г','Г','н','Н','к','К','ц','Ц','й','Й'];
for i:=1 to lenght(s) do
if s[i] in L ink(k);
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.