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

program Project1;
 
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
Type mnoj=Set of char;
 
Var opt:Text;
    i:integer;
    s,s1:string;
    a:char;
    mn,mn1,mn2,mn3:mnoj;
 
Procedure SR(s:string; Var Rs:mnoj);
    Var i:byte;
    Begin
    Rs:=[];
    For i:=1 to Length(s) do
        Rs:=Rs+[S[i]];
    End;
    
Begin {Основня программа}
    mn:=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ',
    'Б','В','Г','Д','Ж','З','Й','К','Л','М','Н','П','Р','С','Т','Ф','Х','Ц','Ч','Ш','Щ'];
    Assign(opt,'C:\in.txt');Reset(opt);
    s1:='';
    mn3:=[];
    While Not Eof(opt) do
    Begin
     Readln(opt,s);
     Sr(s,mn1);
     mn3:=mn3+mn1;
    End;
    mn2:=mn-mn3;
    For a:='а' to 'я' do
    If a in Mn2 then s1:=s1+a;
    For a:='А' to 'Я' do
    If a in Mn2 then s1:=s1+a;
    Writeln('Не входят: ',s1);
    Close(opt);
    readln;
End.

program Project1;
 
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
Type mnoj=Set of char;
 
Var 
    i:integer;
    s,s1:string;
    a:char;
    mn,mn1,mn2,mn3:mnoj;
 
Procedure SR(s:string; Var Rs:mnoj);
    Var i:byte;
    Begin
    Rs:=[];
    For i:=1 to Length(s) do
        Rs:=Rs+[S[i]];
    End;
    
Begin {Основня программа}
    mn:=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ',
    'Б','В','Г','Д','Ж','З','Й','К','Л','М','Н','П','Р','С','Т','Ф','Х','Ц','Ч','Ш','Щ'];
    s1:='';
    mn3:=[];
    Repeat
     Readln(s);
     If Length(s)=0 Then Break; //Пустая строка - конец
     Sr(s,mn1);
     mn3:=mn3+mn1;
    Until Pos('.',s)<>0; //Завершаем, если в строке есть точка
 
    mn2:=mn-mn3;
    For a:='а' to 'я' do
    If a in Mn2 then s1:=s1+a;
    For a:='А' to 'Я' do
    If a in Mn2 then s1:=s1+a;
    Writeln('Не входят: ',s1);
    readln;
End.