Напечатать в алфавитном порядке все глухие согласные буквы, которые не входят только

Const glsogl =['п', 'ф', 'к', 'т', 'ш', 'с', 'м', 'н', 'х', 'ч', 'ц', 'щ'];
      razdel =[' ', ',', '.'];
 
Var I : Integer;
    K : Boolean;
    S : String;
    T : String;
    C : Char;
    M : Array ['а'..'я'] of Boolean;
 
Procedure Control(W:String; ChetNechet:Boolean);
Begin
     //WriteLn (ChetNechet:6, ' ', W);
 
     For C := 'а' To 'я' Do
     Begin
          If (ChetNechet and (pos(C,W) <> 0)) Then M[C] := true;
          If ((not ChetNechet) and (pos(C,W) = 0)) Then M[C] := False;
     End;
End;
 
Begin
     ClrScr;
     WriteLn ('Enter string:');
     ReadLn (S);
     If Length(S) = 0
     Then
         Begin
              S := 'Вывести на печать в алфавитном порядке глухие согласные';
              WriteLn(S);
         End
     Else
         If S[Length(S)] <> '.' Then S := S + '.';
 
     For C := 'а' To 'я' Do
     Begin
           M[C] := True;
     End;
 
     I := 1;
     K := False;
     T := '';
     While S<> '.' Do
     Begin
          If (S in razdel)
          Then
              Begin
                   If Length(T) <> 0 Then
                   Begin
                        Control(T, K);
                        T := '';
                        K := not K;
                   End;
              End
          Else T:=T+S;
          Inc(I);
     End;
     Control(T, K);
 
      For C := 'а' To 'я' Do
          If (C in glsogl) and M[C]
             Then WriteLn(C, ' ', M[C], ' ');
      WriteLn;
 
     ReadLn;
End.