Нужно получить копию исходного дерева

uses crt;
type shablon=^zapis;
     zapis=record
     a:integer;
     left:shablon;
     right:shablon;
     end;
var tree1,tree2:shablon;
    max:integer;
procedure create_tree(tree:shablon;n:integer);
var new_tree:shablon;
begin
   if n<=max then
   begin
      new(tree^.left);
      new_tree:=tree^.left;
      new_tree^.a:=random(5);
      create_tree(new_tree,n+1);
      new(tree^.right);
      new_tree:=tree^.right;
      new_tree^.a:=random(5);
      create_tree(new_tree,n+1);
    end;
end;
procedure view_tree(tree:shablon;x,n:integer);
begin
gotoxy(x,2*n);
write(tree^.a);
if n<=max then
begin
view_tree(tree^.left,x-(20 div n),n+1);
view_tree(tree^.right,x+(20 div n),n+1);
end;
end;
begin
   clrscr;
   randomize;
   read(max);             
   new(tree1);
   tree1^.a:=random(20);
   tree2:=tree1;       
   create_tree(tree1,1);
   view_tree(tree2,40,1); 
end.

uses crt;
type shablon=^zapis;
     zapis=record
     a:integer;
     left:shablon;
     right:shablon;
     end;
var tree1,tree2:shablon;
    max:integer;
procedure create_tree(tree:shablon;n:integer);
var new_tree:shablon;
begin
   if n<=max then
   begin
      new(tree^.left);
      new_tree:=tree^.left;
      new_tree^.a:=random(5);
      create_tree(new_tree,n+1);
      new(tree^.right);
      new_tree:=tree^.right;
      new_tree^.a:=random(5);
      create_tree(new_tree,n+1);
    end;
end;
procedure view_tree(tree:shablon;x,n:integer);
begin
gotoxy(x,2*n);
write(tree^.a);
if n<=max then
begin
view_tree(tree^.left,x-(20 div n),n+1);
view_tree(tree^.right,x+(20 div n),n+1);
end;
end;
 
function CopyTree(tree : shablon) : shablon;
begin
  if tree = nil then
    Result := nil
  else
    begin
      New(Result);
      Result^.a := tree^.a;
      Result^.left := CopyTree(tree^.left);
      Result^.right:= CopyTree(tree^.right);
    end;
end;
 
begin
   clrscr;
   randomize;
   readLn(max);             
   new(tree1);
   tree1^.a:=random(10);
   tree2:=tree1;       
   create_tree(tree1,1);
   view_tree(tree2,40,1);
 
  WriteLn(NewLine, '~'*79, NewLine);
  ReadLnString('Нажмите Enter');
  ClrScr; 'Копия:'.Print;
  var cTree := CopyTree(tree1);
  view_tree(cTree,40,1);
  WriteLn(NewLine, '='*79, NewLine);
end.