max:=1;
all_letter:=0; {всего согласных букв в строке }
tmp_letter:=0; {хранение числа букв в каждом слове }
max_letter:=0; {максимальное число согл. букв в слове }
flag_word:=false; {слово не было начато }
st:=' '+st; {считать, что строка начинается с пробела}

{цикл обработки всей строки}
for i:=2 to length(st) do
begin
{начало слова}
if (st[i]<>' ')and(st[i-1]=' ') then flag_word:=true;
{подсчёт, если было начало слова}
if flag_word then
begin
write(st[i]);
for j:=1 to 24 do if st[i]=letter[j] then
begin
inc(all_letter);
inc(tmp_letter);
end;
end;
{конец слова}
if (st[i]=' ')and(st[i-1]<>' ')or(i=length(st)) then
begin
flag_word:=false;
writeln(' = ',tmp_letter);
if max_letter<tmp_letter then
begin
max_letter:=tmp_letter;
inc(max);
end;
tmp_letter:=0;
end;
end;

writeln;
writeln('Всего согласных = ',all_letter);
END.