Дерево формула (формирование и подсчет введя любую простую формулу в строку)

uses crt;
type ref=^el; el=record key:char; l,r:ref; end;
     ul=^eel; eel=record inf:char; count:integer; next:ul; pred:ul; end;
var  root:ref; s:string; p,h,hh:integer;
     u,i,o,y,k:ul;
function form(v,n:ul):ref;
var nuz:ref; x:char; e:ul; z:integer;
begin
  if v=n then
   begin
    new(nuz);
    nuz^.key:=v^.inf;
    nuz^.l:=nil;
    nuz^.r:=nil;
   end else
 begin
  z:=1;
  repeat
  e:=v;
  while (e^.count<>z) and (e<>n) do e:=e^.next;
  if e^.count=z then
   begin
    z:=5;
    new(nuz);
    nuz^.key:=e^.inf;
    nuz^.l:=form(v,e^.pred);
    nuz^.r:=form(e^.next,n);
   end
  else begin
   z:=z+1;
  end;
  until z>3;
 end;
 form:=nuz;
end;
procedure print(t:ref; h:integer);
var i:integer;
begin
 if t<>nil then with t^ do
 begin
  print(l,h+1);
  for i:=1 to h do write(' ');
  writeln(key);
  print(r,h+1);
 end;
end;
function calc(t:ref):real;
begin
 if t^.key in ['0'..'9'] then calc:=ord(t^.key)-48
 else
  if t^.key='+' then
   calc:=calc(t^.l)+calc(t^.r)
  else if t^.key='-' then
   calc:=calc(t^.l)-calc(t^.r)
  else if t^.key='*' then
   calc:=calc(t^.l)*calc(t^.r)
  else calc:=calc(t^.l)/calc(t^.r);
end;
begin
 s:='5+5-5/5*3+2-4/1-1';
 p:=length(s);
 i:=nil;
 o:=nil;
 repeat
  new(y);
  y^.inf:=s[p];
  if s[p] in ['+','-'] then
   y^.count:=1
  else if s[p] in ['*'] then
   y^.count:=2
  else if s[p]='/' then y^.count:=3;
  y^.next:=i;
  if i<>nil then i^.pred:=y;
  i:=y;
  dec(p);
 until p=0;
 i^.pred:=nil;
 u:=i;
 while u^.next<>nil do u:=u^.next;
 root:=form(i,u);
 print(root,h);
 writeln;
 writeln;
 while i<>nil do
 begin
  write(i^.inf,'');
  i:=i^.next;
 end;
 writeln('=',calc(root));
end.