谁有现成的pascal语言的后缀表达式转中缀表达式的程序？30分钟内急需！

program p1293;
const maxL = 1000000;
type node = record
ch:char;
l,r:longint;
end;
var s:ansistring;
List:array[1..maxL] of node;
T:longint;

function GetLevel(x:char):longint;
begin
case x of
'*','/':exit(3);
'-':exit(1);
'+':exit(1);
end;
end;

procedure work(var s:ansistring);
var now:longint;
begin
inc(T);
now:=T;
List[now].ch:=s[length(s)];
delete(s,length(s),1);
if List[now].ch in ['+','-','*','/'] then begin
List[now].R:=T+1;
work(s);
List[now].L:=T+1;
work(s);
end
else begin
List[now].R:=-1;
List[now].L:=-1;
end;
end;

function outp(x:longint;level:longint;c:longin