120  Pascal User Manual  program Traversa12 (Input,Ou  !)I;t);  al  Program 11.7 - Rewrite  t~gram  11.6 using procedur- paramete  . }  type  Ptr  =  INode;  Node  =  record  Info: Char;  LLink,  RLink:  Ptr  end;  Positive  =  1 .. MaxInt;  var  Root:  Ptr;  Ch:  Char;  procedure PreOrder(P: Ptr);  begin  if P <> nil then  begin  Write(Output,PI.Infc);  PreOrder(pI.LLink);  PreOrder(pI.RLink)  end  end { PreOrder };  procedure InOrder(P:  Ptr);  begin  if P <> nil then  begin  InOrder(pI.LLink);  ~  il  e(Output,  pI.Info);  InOrder(pI.RLink)  end  end { InOrder };  procedure PostOrder(P: Ptr  begin  if P <> nil then  begin  PostOrder (PI. LLink);  cst Order (PI. RLink) ;  Write(Output,PI.Infc  end  end { PostOrder }; 