функция, помогите исправить Опции

[Zlo]

Функция, которая находит количесвто слов в строке, содержащих две подряд одинаковые буквы. Вот есть она, но количество слов выдает на 1 больше. Помогите поправить функцию.

function slovo(s:string):string;
var  n,i:integer; w:string;   p:boolean;
begin
k:=0;
for i:=1 to length(s) do
if s[i]<>' ' then
w:=w+s[i] else
begin
p:=false;
  for n:=1 to length(w)-1 do
 begin
 if w[n]=w[n+1] then
 p:=true;

 end;
  if p then  k:=k+1;
  w:='';

  end;
 end;