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

uses crt;
const n =10;
type alist=^a;
 a = record
  data: integer;
  next: alist;
 end;
 
 var L,L1,L2: alist;
     b,i: integer;
     s: set of byte;
     
 procedure add(var first: alist; x: integer);
 var cur: alist;
 begin
  if first=nil then
  begin
   new(first);
   cur:=first;
  end
  else
  begin
   cur:=first;
    while cur^.next<>nil do
     cur:=cur^.next;
    new(cur^.next);
    cur:=cur^.next;
  end;
  cur^.next:=nil;
  cur^.data:=x;
 end;
 
 procedure list(first: alist);
 begin
  while first<>nil do
   begin
    write(first^.data,' ');
    first:=first^.next;
   end;
  writeln;
 end;
 
 procedure incl(l2:alist;var s: set of byte);
 begin
  for i:=1 to n do
   begin
    if not (l2^.data in s) then
     include(s,l2^.data);
     l2:=l2^.next
   end;
 end;
 
 begin
  clrscr;
  randomize;
  l:=nil;
  l1:=nil;
  l2:=nil;
  writeln('Исходные списки L1 и L2: ');
  for i:=1 to n do
   begin
    b:=random(10);
    add(l1,b);
    b:=random(30);
    add(l2,b);
   end;
  list(l1);
  list(l2);
  incl(l2,s);
  for i:=1 to n do
   begin
   if not (l1^.data in s) then
    begin
     include(s,l1^.data);
     add(l,l1^.data);
    end;
   l1:=l1^.next;
   end;
   writeln('Полученный список L: ');
   list(l);
  readln;
 end.