Найти слово с максимальным количеством согласных. заменить этим словом предпоследнее слово строки. это паскаль

Var a, b, c, i, n, m, j : integer;     s, p, q: string; begin read (s); a: =1; for i: =1 to length (s) do        begin        if s[i]=' ' then              begin              b: =i-a;               c: =0;               p: =copy(s,a,b);               a: =i+1;   for j: =1 to length (p) do                    if (p[j]< > 'у') and (p[j]< > 'у') and (p[j]< > 'е') and (p[j]< > 'е') and (p[j]< > 'ы') and                   (p[j]< > 'ы') and    (p[j]< > 'а') and (p[j]< > 'а') and (p[j]< > 'о') and (p[j]< > 'о') and                   (p[j]< > 'э') and (p[j]< > 'э') and    (p[j]< > 'я') and (p[j]< > 'я') and (p[j]< > 'и') and                     (p[j]< > 'и') and (p[j]< > '') and (p[j]< > 'ю') then inc(c);               if c> =m then                 begin                 m: =c;                 q: =p;                 end;             end;         end;   a: =length (s);   while s[a]< > ' ' do        begin        delete (s,a,1);         a: =a-1;         end;   write (s, q);   end.     p.s. надеюсь на и лучший ответ.

Функция abs() находит модуль числа.