Используя множество символов первой строки, удалить все вхождения этих символов из второй строки

type mn=set of char;
var s:string;
    b,ts,mb,mts:mn;
    i:integer;
procedure b_ts(x:set of char;z:char);
var j:char;
begin
 if z='b'
  then
   begin
    if x=[] 
     then writeln('букв нет')
     else
      begin
       write('множество букв: ');
       for j:='a' to 'z' do if j in x then write(j,' ');
       for j:='A' to 'Z' do if j in x then write(j,' ');
       writeln
      end;
   end   
  else
   begin
    if x=[]
     then writeln('цифр нет')
     else
      begin
       write('множество цифр: ');
       for j:='0' to '9' do if j in x then write(j,' ');
      end
   end   
end;
function zap(ss:string;z:char;b1,ts1:mn):mn;
var i:integer;bs:set of char;
begin
 bs:=[];
 if z='b'
  then
   begin
    for i:=1 to length(ss) do 
     if ss[i] in b1 then include(bs,ss[i])
   end  
  else
   begin
    for i:=1 to length(ss) do 
     if ss[i] in ts1 then include(bs,ss[i])
   end;
  zap:=bs
end;   
begin
 b:=['a'..'z','A'..'Z'];ts:=['0'..'9']; 
 mb:=[];mts:=[];
 writeln('введите строку: ');
 readln(s);
 mb:=zap(s,'b',b,ts);
 mts:=zap(s,'t',b,ts);
 b_ts(mb,'b'); 
 b_ts(mts,'t'); 
end.

const b:set of char=['a'..'z','A'..'Z'];ts:set of char=['0'..'9'];
var s:string;
    mb,mts:set of char;
    i:integer;
    j:char;
begin
 mb:=[];mts:=[];
 readln(s);
 for i:=1 to length(s) do 
  begin
   if s[i] in b then include(mb,s[i]);
   if s[i] in ts then include(mts,s[i])
  end;
 if mb=[] 
  then writeln('букв нет')
  else
   begin
    write('множество букв: ');
    for j:='a' to 'z' do if j in mb then write(j,' ');
    for j:='A' to 'Z' do if j in mb then write(j,' ');
    writeln
   end;
  if mts=[]
   then writeln('цифр нет')
   else
    begin
     write('множество цифр: ');
     for j:='0' to '9' do if j in mts then write(j,' ');
    end 
end.