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

//Pascal ABC.NET 3.1 сборка 1219Var se:set of char; s:string; i,j,k:integer;begink:=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