Сформировать третий список, включив в него по одному разу элементы из первого, не входящие во второй

program Lab_10; uses crt;
 
type
nodes=^node;
node=record
   data: integer;
   left, right: nodes;
end;
 
var
tree, left, right: nodes;
n, x, y, z, i:integer;
key: char;
 
procedure add (var tree: nodes; x: integer);
begin
   if tree=nil then
      begin
      new (tree);
      tree^.data :=x;
      tree^.left :=nil;
      tree^.right:=nil;
      exit;
      end;
   if x=y then add (tree^.left, y);
   if x=z then add (tree^.right,z);
end;
 
procedure lscan (tree: nodes);
   begin
   if tree=nil then exit
   else
   write(' ', tree^.data, ';');
   lscan (tree^.left);
   end;
 
procedure rscan (var tree: nodes);
   begin
   if tree=nil then exit
   else
   write(' ', tree^.data, ';');
   rscan (tree^.right);
   end;
 
begin tree:=nil;
   repeat; clrscr; textcolor(1); writeln;
      writeln('  1).Создание cписков. ');
      writeln('  2)....Обзор списков. ');
      writeln('  3)............Выход. '); writeln;
      write  ('  Выберите действие: '   );
      readln (key); clrscr;
      case key of
   '1' : begin
         writeln; writeln ('  Список 1. ');  writeln;
         write ('  Количество элементов: '); readln (n); writeln;
         for i:=1 to n do
            begin
            write ('  Введите элемент - ');
            readln (y); add (tree, y);
            end;
         writeln; writeln ('  Список 2. ');  writeln;
         write ('  Количество элементов: '); readln (n); writeln;
         for i:=1 to n do
            begin
            write ('  Введите элемент - ');
            readln(z); add (tree,z);
            end;
         end;
   '2' : begin
         writeln; write ('  Список 1: ');
         if tree<>nil then
         lscan (tree); writeln;
         writeln; write ('  Список 2: ');
         if tree<>nil then
         rscan (tree^.right); writeln;
         writeln; write ('  Жми " Enter " ... '); readln;
         end;
   '3' : exit;
      end;
   until (key<'1') and (key>'4');
end.