Определить общее число вхождений двух повторяющихся символов для каждого символа, встречающегося в исходной строке

var s:string;
i,j,k:integer;
begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s) do
begin
k:=0;
for j:=i to length(s)-1 do
if (s[j]=s[i]) and (s[j+1]=s[i]) then
begin
k:=k+1;
end;
if k>=0 then writeln ('Символ ', s[i],' повторяется ',k,' раз');
end;
end.

var s:string;
    i,k: byte;
    c: char;
begin
write('Введите строку: '); readln(s);
for c:='А' to 'я' do
    if pos(c,s)<>0 then
       begin
       k:=0;
       for i:=1 to length(s)-1 do
           if (s[i]=c) and (s[i+1]=c) then inc(k);
       writeln ('Удвоенный символ ', c,' встречается ',k,' раз');
       end;
end.

var s:string;
    i,j,k:integer;
    m: set of char;
begin
writeln('Введите строку');
readln(s);
m:=[];
for i:=1 to length(s) do
    begin
    k:=0;
    if not (s[i] in m) then
       begin
       for j:=i to length(s)-1 do
           if ((s[j]=s[i]) and (s[j+1]=s[i])) then
              begin
              k:=k+1;
              m:=m+[s[j]];
              end;
       if k>=0 then writeln ('Символ ', s[i],' повторяется ',k,' раз');
       end;
    end;
end.

for c:='!' to 'я' do

uses crt;
var s: string;
    i,j,k: byte;
    c: char;
begin
write('s='); readln(s);
for i:=1 to length(s) do
    if s[i]<>' ' then
       begin
       k:=0;
       c:=s[i];
       for j:=i to length(s) do
           if s[j]=c then
              begin
              if (j<length(s)) and (s[j+1]=c) then inc(k);
              s[j]:=' ';
              end;
       writeln('Удвоенная ',c,' встречается ',k,' раз');
       end;
end.