Используя множество символов первой строки сделать замену этих символов во второй строке на пропуски(пробелы) — Pascal(Паскаль)

var
 s,s2:string;
 i:integer;
 z: set of char;
begin
 z:= [];
 readln(s);
 readln(s2);
 writeln(s);
 for i:= 1 to length(s) do
   if not(s[i] in z) then
     z:= z + [s[i]];
 for i:= 1 to length(s2) do
   if s2[i] in z then
     s2[i]:= ' ';
 writeln(s2);
end.

program My;
uses CRT;
type My_Set=set of char;
var  st1,st2:string;
     m:My_Set;
 
function Obrobka(str1,str2:string):string;
var i:byte;
st:string;
begin
 st:=str2;
 m:=[];
 for i:=1 to length(st1) do
 m:=m+[str1[i]];
 for i:=1 to length(st) do if st[i] in m then st[i]:=' ';
 obrobka:=st;
end;
 
begin
 clrscr;
 textcolor(Yellow);
 writeln('Введите первую строку: ');
 readln(st1);
 textcolor(LightGreen);
 writeln('Введите вторую строку: ');
 readln(st2);
 st2:=Obrobka(st1,st2);
 textcolor(LightBlue);
 writeln('Полученая строка: ');
 writeln(st2);
end.