Дан массив символов,надо напечатать символ и сколько раз подряд он встретился.
Например: aaaaaaabbbbbbcccccdaaa. a 7 b 6 c 5 d 1 a 3
Вот моя программа, но она зацикливается.
type mas=array[1..100] of char;
var i,j,n,k:integer;
x:mas;
begin
i:=0;
repeat
i:=i+1;
read(x[i]);
until x[i]='.';
n:=1;
k:=1;
while n<i do begin
write(x[n],' ');
if x[n] = x[Succ(n)] then
while x[n] = x[Succ(n)] do begin
n:=n+1;
inc(k);
end;
writeln(k);
end;
end.