Паскаль (без использования множеств)

Написать функцию DELDUBL(A,B), которая добавляет в конец строки A, все буквы из A, не встречающиеся в B.

Задание, конечно, странное. Почему функция? Почему такое имя? Но, тем не менее - вот программа (такая же странная):
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

Вы - самое настоящее чудо. Огромное-прекрасное спасибо, очень выручили:)

Пожалуйста. Но, всё-таки, программа (как и задание) - сплошное недоразумение.

Увы и ах, но преподавателю такое не скажешь, а если и скажешь, то толку от этого большого не будет.