求先序排列

题目描述
给出一棵二叉树的中序与后序排列。求出它的先序排列。（约定树结点用不同的大写字母表示，长度<=8）。

输入输出格式
输入格式：
2行，均为大写字母组成的字符串，表示一棵二叉树的中序与后序排列。

输出格式：
1行，表示一棵二叉树的先序。

输入输出样例
输入样例#1：
BADC
BDCA
输出样例#1：
ABCD

说明
这一题只要你知道二叉树中的先序、中序、后序之间的关系、规律，就可以做得出来，但也有一定的难度。

---

var
  s1,s2:string;
procedure try(s1,s2:string);
var
  i,s:longint;
begin
  if s2<>'' then
  begin
    i:=length(s2);
    s:=pos(s2[i],s1);
    write(s2[i]);
    try(copy(s1,1,s-1),copy(s2,1,s-1));
    try(copy(s1,s+1,i-s),copy(s2,s,i-s));
  end;
end;
begin
  readln(s1);
  readln(s2);
  try(s1,s2);
end.