Составьте программу, выясняющую, есть ли в слове х глухие согласные. , .язык программирования - паскаль.

Var
S:string;
A,i:integer;
Begin
A:=0;
WriteLn('Введи слово');
ReadLn(S);
For i:= 1 to Length(S) do
 if UpperCase(S[i])in['П','Т','К','Т','Ш','С','Х','Ц','Ч','Щ'] then A:=1;

if A=1 then WriteLn('Есть глухие согласные')
else Write('Глухих согласных нет')
End.