Работа со строками

[DJSWAT]

Вот задачка:
мы вводим с клавиатуры такие символы - aaabbbbccaccccc, на выходе он должен считать сколько мы ввели буква а сколько с и так далее, тоесть на выходе должно быть так - a3b4c2a1c5

[DJSWAT]

Тоесть мы должны считывать сколько букв введено и писать на выходе рядом с этой буквой ее количество на входе

[Летучий_СкилетиК]

и в чем же у вас вознакают сложности?

[Hacker19_90]

Как-то так помоему!

count := 1;
for i := 1 to length(s) - 1 do
begin
    if s[i] = s[i+1] then Inc(count)
    else
    begin
        write(count, s[i]);
        count := 1;
    end;
end;
writeln;