Определить, есть ли совпадающие числа в дереве - Pascal ABC

[Korban]

Задание:
Вводится последовательность целых чисел. Определите, есть ли в этой последовательности совпадающие числа. Решить задачу с помощью дерева.

Создал процедуру для генерация дерева и вывода. Нужна функция для поиска совпадающих чисел в дереве.

Type
PNode=^Node;
 Node=record
   data:integer;
   left,right:PNode;
end;
 
Var
  Tree:PNode;
 
Procedure GenTree (var Tree:PNode;level:integer);
var
p,q:integer;
n:PNode;
begin
 if level<3 then
   begin
   P:=100;
   q:=100;
   end
   else
   begin
   p:=random(100);
   q:=random(100);
   end;
   new(n);
   n^.data:=random(100);
   Tree:=n;
   if p>60 then
   gentree(Tree^.left,level+1)
   else
   Tree^.left:=nil;
   if q>60 then
   gentree(Tree^.right,level+1)
   else
   Tree^.right:=nil;
   end;
 
Procedure Show(Tree:PNode;level:integer);
var i:integer;
begin
  if Tree<>nil then
  begin
  show(Tree^.left,level+1);
  for i:=1 to level do write('  ');
  writeln('  ',Tree^.data);
  show(Tree^.right,level+1);
  end;
end;
 
Begin
GenTree(Tree,1);
writeln('Дерево: ');
Show(Tree,1);
end.