Дано текст на русском языке распечатать в алфавитном порядке все согласные буква которые не входят ни в одного слова — Pascal(Паскаль)

uses crt;
const sg:string='БбВвГгДдЖжЗзЙйКкЛлМмНнПпРрСсТтФфХхЦцЧчШшЩщ';
var s:string;
    i:byte;
begin
clrscr;
writeln('Введите текст:');
readln(s);
writeln('В тексте нет следующих согласных букв:');
for i:=1 to length(sg) do
if pos(sg[i],s)=0 then write(sg[i]);
readln
end.