Блок-схема 2
 

program zadacha_1;
Uses CRT;
var s:string;
i,k:byte;
Begin
write ('Vvedite stroky: ');readln(s);
For i:=1 to Length (s)-1 do
if s[i]=s[i+1] then
Begin
writeln(s[i],s[i+1]);
inc (k);
end;
writeln ('count= ',k);
readln;
End.

Вот:...........