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

var a,b:string; i:integer;
begin
write('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: primer
b: write
rier