Задача на стек или очередь (Делфи)

[(Нафаня)]

Уже неделю бьюсь с этой задачей. Не могу придумать процедуры проверки вхождения\не вхождения в список. Задание такое: написать программу в результате которой будет создан список в который по одному разу входят элементы которые входят в список L1, но не входят в список L2

type
  List=^Node;
  Node=record
         inf:Integer;
         flag:Boolean;
         next:List;
       end;
 
procedure list_Push(var l: List; x: Integer); 
var
  p: List;
begin
  new(p);
  p^.inf:=x;
  p^.flag:=false;
  p^.next:=l;
  l := p;
end;
 
function list_Pop(var l: List): Integer; 
var
  p:List;
begin
  p:= l;
  l:= l^.next;
  list_Pop:=p^.inf;
  p^.next:=nil;
  dispose(p);
end;
 
function read_List(fName:string):List;  
var
  l:List;
  f:Text;
  x:Integer;
begin
  assign(f,fName);
  reset(f);
  l:=nil;
  while not eof(f) do
  begin
    read(f,x);
    list_Push(l,x);
  end;
  closeFile(f);
  read_List:=l;
end;
function is_in_list(l1:list;):boolean;
begin
  if s=nil then
    is_in_list:=false
  else
    is_in_list:=is_in_list(s^.next,e)

[Stilet]

в который по одному разу входят элементы которые входят в список L1, но не входят в список L2

Функа Кол-ва:

function InList(l:list;v:integer):integer;
begin Result:=0;
 while (l<>nil) do begin if(l^.inf=v) then Result:=Result+1; l:=l^.next;end;
end;

Функа формирования списка:

Function ReList(l1,l2:List):List;
var h,d:List;
begin
 h:=nil;l:=nil;
 while q<>nil do begin
  if (InList(l2,l1^.inf)=0) and (InList(l1,l1^.inf)=1) then begin
   new(l); l^.inf:=l1^.inf;
   if h<>nil then h^.next:=l else h:=l;
   if Result=nil then Result:=h;
  end;
 end;
end;

За точность не ручаюсь. Проверяй. (Чуть поправил...)

(Нафаня)

Подпись свою смени. Забанют за мат.

[(Нафаня)]

Сменю) А за ответ спасибки=)))