Дописать в начало списка элементы, которые входят в L1, но не входят в L2 - PascalABC.NET

type
  PLink = ^TElement;
  TElement = Record
    data: integer;
    next: PLink;
  End;
 
procedure Input(var u: PLink);
var
  ElNew, ElPred: PLink;
  Value: integer;
  i, n: integer;
begin
  readln(n);
  u := nil;
  Writeln('Введите элементы списка: ');
  for i := 1 to n do
    begin
      Read(Value);
      New(ElNew);
      ElNew^.Data := Value;
      ElNew^.next := nil;
      if u = nil then
        u := ElNew
      Else
        ElPred^.next := ElNew;
      ElPred := ElNew;
    end;
end;
 
procedure Vivod(u: PLink; ch: string);
begin
  if u = nil then
    begin
      writeln('Список пуст!Для продолжения нажмите Enter');
      readln;
      Exit;
    end;
  writeln('Список ', ch);
  while u <> nil do
    begin
      write(u^.data, ' ');
      u := u^.next;
    end;
  writeln;
end;
 
procedure Delete(var u: PLink);
var
  x: PLink;
begin
  while u <> nil do
    begin
      x := u;
      u := u^.next;
      Dispose(x);
    end;
end;
 
/// Функция inList возвращает True если данный элемент входит в список
function inList(data : integer; L : PLink) : Boolean;
begin
  Result := True;
  while L <> nil do
    if L^.data = data then
      Exit
    else
      L := L^.next;
  Result := False;
end;
 
/// Процедура добавляет УНИКАЛЬНЫЙ элемент к списку
procedure Add(data : integer; var L : PLink);
begin
  if L = nil then
    begin
      New(L); L^.data := data; L^.next := nil;
    end
  else
    begin
      var Cur := L;
      var Last : PLink;
      repeat
        if Cur^.data = data then Exit;
        Last := Cur; Cur := Cur^.next;
      until Cur = nil;
      New(Last^.next); Last := Last^.next; Last^.data := data; Last^.next := nil;
    end;
end;
 
procedure Soed(L1: PLink; L2: PLink; var L: Plink);
begin
  L := nil;
  while L1 <> nil do
    begin
      if inList(L1^.data, L2) then
        Add(L1^.data, L);
      L1 := L1^.next;
    end;
end;
 
var
  L1, L2, L: PLink;
begin
  write('Введите кол-во элеметов списка "L1": '); Input(L1); Vivod(L1, 'L1');
  write('Введите кол-во элеметов списка "L2": '); Input(L2); Vivod(L2, 'L2');
  
  Soed(L1, L2, L); Vivod(L, 'L');
  
  Delete(L1);
  Delete(L2);
  Delete(L);
end.