Задание, конечно, странное. Почему функция? Почему такое имя? Но, тем не менее - вот программа (такая же странная):
var a,b:string;
function DELDUBL(var A,B:string):string;
var i:integer;
begin
for i:=1 to length(a) do
 if pos(a[i],b)=0 then a:=a+a[i];
DELDUBL:=a;
end;
begin
write('A = '); readln(a);
write('B = '); readln(b);
a:=DELDUBL(a,b);
writeln(a);
end.

Пример:
A = qwerty
B = wryip
qwertyqet