Списки Опции

[Caries]

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

[volvo]

Тогда Unite должна будет выглядеть так:

procedure unite(var l_res, one, two: tlist);
var
  p: sllptr;
  x: tdata;
begin
  p := one.first;
  while p <> nil do begin
    { если этот элемент присутствует во втором списке }
    if present_in_list(two, p^.inf) and
       { и еще не присутствует в результате }
       (not present_in_list(l_res, p^.inf)) then

      { то добавить его к результату }
      add_to_list(l_res, p^.inf);
    p := p^.next;
  end;
end;

Все просто :yes: