var S1,S2:String;
i,j:Integer;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);

i:=0; //счетчик цикла
j:=0; //счетчик слов

S1:='Привет мой друг, дорогой и любезный'; //наша строка
S1:=S1+' '; //дописываю пробел в конец
writeln(S1); //вывожу на экран

for i:=1 to length(S1) do Begin //проход по строке
if S1[i]<>' ' then S2:=S2+S1[i] //если текущий символ не пробел, то составляю слово
else Begin //если же пробел
if length(S2)>5 then inc(j); //проверяю длину составленного слова и если там больше пяти букв, увеличиваю счетчик слов
S2:=''; //обнуляю слово
end;
end;
writeln(j); //вывожу число слов из более чем 5 букв.
readln;
end.

==============
минусы, разделители будут считаться за букву слова. (, - " @ и т.д.)


ваше почти.