树的遍历（程序阅读题pascal）

这是2008年noip初赛的一道程序阅读题，我看了答案了，知道是已知前序遍历和中序遍历，要求输出后序遍历，但我看不懂这个程序的过程，请高手帮忙解释一下。如果给出前序和中序，我可以用手工求出后序遍历。就是这个程序的代码看不懂。
先谢谢了~~~~
procedure solve(first:string;spos_f,epos_f:integer;mid:string;spos_m,epos_m:integer);
var i,root_m:integer;
begin
if spos_f > epos_f then exit;
for i:=spos_m to epos_m do
if first[spos_f]=mid[i] then begin
root_m:=i;
break;
end;
solve(first,spos_f+1,spos_f+(root_m-spos_m),mid,spos_m,root_m-1);
solve(first,spos_f+(root_m-spos_m)+1,epos_f,mid,root_m+1,epos_m);
write(first[spos_f]);
end;

var first,mid:string;
len:integer;
begin
readln(len);
readln(first);
readln(mid);
solve(first,1,len,mid,1,len);
writeln;
end.

输入：7
ABDCEGF
BDAGECF
输出：_________________________________

二叉树遍历的程序怎么写？ 二叉树遍历程序 一个PASCA编程题 求PASCAL语言树的三种遍历的程序 求一个关于二叉树遍历的程序 二叉树的建立和遍历程序,帮忙修改一下 二叉树的遍历 图的遍历(pascal)程序怎么写 汇编的程序阅读题 树的先根后根遍历与二叉树后序遍历转换