Var s:string;
gl,mn: set of char;
i:integer;
c:char;
begin
writeln('Введите текст:');
readln(s);
gl:=['к','п','с','т','ф','х','ц','ч','ш','щ'];
mn:=[];
for i:=1 to length(s) do
 if s[i] in gl then mn:=mn+[s[i]];
for c:='к' to 'щ' do
 if c in mn then write(c:2);
writeln;
end.

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