Определить, сколько слов в тексте содержит удвоенную согласную. Язык программирования паскаль.

//Pascal ABC.NET 3.1 сборка 1219

Var
 se:set of char;
 s:string;
 i,j,k:integer;
begin
k:=0;
se:=[Б,В,Г,Д,Ж,З,Й,К,Л,М,Н,П,Р,С,Т,Ф,Х,Ч,Ц,Ш,Щ,б,в,г,д,ж,з,й,к,л,м,н,п,р,с,т,ф,х,ц,ч,ш,щ];
readln(s);
 var ars:=s.split;
for i:=0 to ars.Length-1 do
 for j:=1 to length(ars[i])-1 do
  if (ars[i][j] in se) and (lowcase(ars[i][j])=lowcase(ars[i][j+1])) then
    begin
    inc(k);
    break;
   end;
writeln(Res=,k);
end.

Пример ввода:
Ввод йотированных звуков
Пример вывода:
Res=2