Сдвоенные буквы Опции

[Алексей]

Помогите!Надо найти количество сдвоенных букв в предложении.(если можно на turbopascale,или мысль какую нибудь по этому поводу)

[Nightmare]

Код

Uses Crt;
Var
 S: String;
 I, Cnt: Byte;
begin
 ClrScr;
 Readln( S );
 If Length( S ) < 2 then Halt( 255 );
 Cnt := 0;
 For I := 2 to Length( S ) do
 begin
   If S[I] = S[I-1] then Inc( Cnt );
 end;
 Writeln( 'Сдвоенных букв: ', Cnt:3 );
end.

Всё довольно просто...