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

Question

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

Answer 1

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