Дана строка s, содержащая менее чем 256 символов. Определить общее число вхождений двух повторяющихся символов для каждого символа, встречающегося в исходной строке. Использовать стандартные процедуры и функции в действиях над строками — Pascal(Паскаль)

uses crt;
var s:string;
    i,j,k,f:byte;
    c:char;
begin
clrscr;
writeln('Введите строку:');
readln(s);
f:=0;
for i:=32 to 255 do
 begin
  c:=chr(i);k:=0;
  for j:=1 to length(s)-1 do
  if (s[j]=c)and(s[j+1]=c) then
    begin
     f:=1;
     k:=k+1;
    end;
  if k>0 then writeln('спаренный символ ',c,' встречается ',k,' рз.');
 end;
if f=0 then write('Спаренных символов нет!');
readln
end.