Дана строка состоящая из слов, разделенных пробелами. Посчитать количество сдвоенных букв во ведённом тексте — Pascal(Паскаль)

var
k,i:integer;
s:string;
begin
    readln(s);
    k:=0;i:=2;
    while  i<=length(s) do
    if(s[i]<>' ')and(s[i]=s[i-1])then 
     begin
       k:=k+2;
       i:=i+2;
     end
    else i:=i+1;
    writeln(k);

end.