объединение двусвязных списков

[Reversi]

помогите реализовать процедуру объединения 2 списков по операции ИЛИ, т.е если у нас есть 2 списка (3, 4, 5, 6) и (1, 2, 3, 6), то должен объединять по элементам и получаться в итоге список (3, 1, 4, 2, 5, 3, 6) если 2 одинаковых числа, то выводить 1 число.
есть такая процедура, но очень корявая

procedure sozd_ili();
var
  next1,next2,next3,p,t,g,en:pnode;
  j,c,flag:integer;
begin
  writeln('Список 1:');
  for j:=1 to 10 do
   begin
    c:=random(100);
    add(next1,c);
    write(c,'  ');
   end;
  writeln;writeln('Список 2:'); 
  for j:=1 to 10 do
   begin
    c:=random(100);
    add(next2,c);
    write(c,'  ');
   end;
  
  t:=next1;
  while t^.next<>nil do t:=t^.next;
  en:=t;
  t:=next2;
  while t<>nil do
   begin    
    p:=next1;
    flag:=0;
    while p<>nil do
     begin
      if p^.data=t^.data then flag:=1;
      p:=p^.next;
     end; 
    if flag=0 then
     begin
      new(g);
      g^.data:=t^.data;
      g^.next:=nil;
      g^.prev:=en;
      en^.next:=g;
      en:=en^.next;
     end;
    t:=t^.next; 
   end; 
  
  
  writeln;writeln('Полученный список:');
  t:=next1;
  while t<>nil do
   begin
    write(t^.data,'  ');
    t:=t^.next;
   end;
  writeln; 
end;