Заменить каждый элемент бинарного дерева его квадратом

type
  Pnode = ^node;
  node = record
    data: integer;
    left, right: Pnode;
  end;
 
var
  tree: Pnode;
  n, x, i: integer;
 
procedure addtotree(var tree: Pnode; x: integer);
begin
  if tree = nil then
  begin
    new(tree);
    tree^.data := x;
    tree^.left := nil;
    tree^.right := nil;
    exit;
  end;
  if x < tree^.data then
    addtotree(tree^.left, x)
  else 
    addtotree(tree^.right, x);
end;
 
procedure lkp(tree: Pnode);
begin
  if tree = nil then 
    exit;
  Lkp(Tree^.left); 
  write(Tree^.data:6); 
  Lkp(Tree^.right); 
end;
 
procedure SqrTree(var tree: Pnode);
begin
  if tree = nil then 
    exit;
  SqrTree(Tree^.left); 
  Tree^.data := Sqr(Tree^.data); 
  SqrTree(Tree^.right); 
end;
 
begin
  write('Введите количество элементов: ');
  readln(n);
  for i := 1 to n do
  begin
    x := random(21);
    addtotree(tree, x);
  end;
  lkp(tree);
  SqrTree(tree);
  writeln;
  lkp(tree);
end.