Паскаль (без использования множеств) Написать функцию 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