Работа со строкой

[AchtungPanzer]

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

[evg_m]

f:='....'; // список проверяемых символов (глухих согласных) в правильном порядке
s:='.....'; // проверяемый текст

for i:=length(f) downto 1 do begin
  if pos(f[i], s)>0 then delete(f, i, 1);
end;
writeln('ни разу ни встретилось', f);