Pascal и бинарные деревья

[xakkkkker]

Добрый день Уважаемые БОЙЦЫ не видимого фронта.
Вот такой вот вопрос, точнее задача.
Нужно построить бинарное дерево из чисел массива.
Так вот построить у меня получилось вроде, но обратно вывести на экран это дерево не получается. Может кто нить знает.

Program SiAOD_laba2;
 uses 
  Crt;
 const MasLength=10;
 type
  blok = ^zapis;
 
 zapis=record
  RightSon,LeftSon:blok;
  Number:integer;
 end;
 
  var
  Father:blok;
  Massiv: array[1..MasLength] of integer;
 
  //Процедура создания дерева
  Procedure CreateBinaryTree(P:blok; M:integer);
   begin
	If P=Nil then
      begin
       New(P);
       P^.Number:=M;
       P^.RightSon:=Nil;
       P^.LeftSon:=Nil;
	  end;
	If M>P^.Number then
	 CreateBinaryTree(P^.RightSon, M);
	If M<P^.Number then
	 CreateBinaryTree(P^.LeftSon, M); 
   end;
 
  //Процедура печати дерева   
  Procedure PrintBinaryTree(P:blok; M:integer);
   begin
    If p<>Nil then
	 begin
	   PrintBinaryTree(P^.RightSon, M+4);
	  For i:=1 to M do
	   Write(' ');
	  Writeln(P^.Number);
	   PrintBinaryTree(P^.LeftSon, M+4);  
   end;
 
 
 
 begin
  For i:=1 to MasLength do
  begin
   Massiv[i]:=Random(MasLength);
   Write(Massiv[i],', ');
  end;
     New(Father);
    For i:=1 to MasLength do
	 begin
	   CreateBinaryTree(Father, Massiv[i]);
	 end;
    PrintBinaryTree(Father,1);
 
 
 end.