Задача о рядом стоящих симоволах.

[llTibegll]

Здравствуйте. Помогите мне пожалуйста решить задачку на Delphi, со строками.
Вот задачка:
Вводится строка. Сколько в ней пар рядом стоящих одинаковых символов?

Буду очень благодарен за помощь.

[ОДИНОЧЕСТВО В СЕТИ]

for i:=2 to length(s) do
if s[i]=s[i-1] then inc(n);
writeln(n);

[llTibegll]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

for i:=2 to length(s) do
if s[i]=s[i-1] then inc(n);
writeln(n);

спасибо, сейчас попробую запустить.