В строке записан строчными буквами текст на русском языке. Определить количество слов, содержащих удвоенные гласные. Список гласных содержится в стро

Program Task508;
Const  Vocal = 'аеиоуыэюя';
Var  k1,k2,Count : byte;
     Cond : boolean;
     S,S1 : string;
{ ------------------------------- }
Function DoubleVocal:boolean;
{ Проверка удвоения гласных в слове }
Var  i,p : byte;
Begin
  DoubleVocal:=false;
  For i:=1 to length(S1)-1 do
    Begin
      p:=Pos(S1[i],Vocal);
      If (p>0) and (S1[i]=S1[i+1]) then
        Begin
          DoubleVocal:=true; Exit
        End;
    End;
End { DoubleVocal };
{ ------------------------------- }
Begin
  Read(S); Writeln('S=',S);
  Count:=0; k2:=0; Cond:=true;
  While Cond do
    Begin
      k1:=NotSpace(k2+1);
      If k1=0 then
        Cond:=false
      Else
        Begin
          k2:=Space(k1+1);
          If k2=0 then
            Begin
              k2:=length(S)+1; Cond:=false
            End;
          S1:=Copy(S,k1,k2-k1);
          If DoubleVocal then
            Inc(Count);
        End;
    End;
  Writeln('Count=',Count);
End.