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

[Надежда95]

Помогите Составить подпрограмму,определяющую число заданных сдвоенных символов в тексте.Используя ее,подсчитать кол-во сдвоенных символов СС ЕЕ НН ЛЛ текста:класс,рассеянность,естествен ность,веер,аллегро.(через процедуру)

[Stilet]

procedure calc(s:string;c:char;var n:integer);
var i:integer;
begin
 n:=0;
 i:=1; while i<Length(s) do begin
  if copy(s,i,2)=(c+c) then begin inc(i); inc(n);end;
  inc(i);
 end;
end;

Вызов:

write('введи строку'); readln(s);
calc(s,'cc',n);
write(n,' пар в строке');

Идея ясна?