Нужно напечатать все элементы с листьев дерева - Turbo Pascal

program pr;
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);
  Lkp(Tree^.right); 
end;
procedure PrintList(ANode: pnode);
begin
  if anode = nil then exit;
  if(anode ^.Left = nil) and (anode^.Right = nil) then
    write(' ', anode^.Data);
  PrintList(anode^.Left);
  PrintList(anode^.Right);
end;
begin
  writeln('Введите количество элементов');
  readln(n);
  for i := 1 to n do
  begin
    x := random(21);
    addtotree(tree, x);
  end;
  writeln('Все элементы дерева');
  lkp(tree);
  writeln;
  writeln('Листья');
  PrintList(tree);
end.