Строки-задание простое на самом деле)

[sugar11]

Найти в строке все сдвоенные символы. Вывести их на экран и подсчитать их количество. P.S. Исходные строки вводить с консоли. В строках можно использовать любые символы, находящиеся на клавиатуре.
Например:
Входные данные: ajkk22n##tzh

Выходные данные:
kk
22
##
count=3

[raxp]

...наработки?

[Mad_Cat]

count:=0;
for i:=1 to n-1 do
if s[i]=s[i+1] then
begin
writeln(s[i],s[i+1]);inc(count);
end;
writeln(count);

[Stilet]

readln(s);
i:=1;
while i<length(s) do begin
 if s[i]=s[i+1] then begin writeln(s[i],s[i+1]); inc(i);end;
 inc(i);
end;

Подходит идея? s - String, i - Integer

Mad_Cat

Пипетц... Даже выводы на экран у нас совпали