Даны две строки. Вычеркнуть из строки A символы,не встречающиеся в строке B.
Помогите написать программу для delphi или pascal.

var a,b:string; i:integer;beginwrite('a: ');readln(a);write('b: ');readln(b);for i:=length(a) downto 1 do if pos(a[i],b)=0 then delete(a,i,1);writeln(a);end.Пример:a: primerb: writerier