Число заданных сдвоенных символов в тексте Pasсal

[Надежда95]

Составить подпрограмму, определяющую число заданных сдвоенных символов в тексте. Используя ее, посчитать количество сдвоенных символов «СС», «ее», «нн», «лл» текста: «класс, рассеянность, естественность, веер, аллерго»

[Stilet]

Попытки и наработки были?

[newerow1989]

var i,k:integer;
     s:string;
begin
   s:='класс, рассеянность, естественность, веер, аллерго';
   k:=0;
   For i:=1 to Length(s)-1 do
      If s[i]=s[i+1] then
         k:=k+1;
   Writeln(k);
   Readln;
end;

Сойдет?