Лаба по спискам, Общие элементы 2х списков Опции

[Eterniti]

Дорогие товарищи! Прошу вашей помощи в решении задачи. Собственно задача:
Даны 2 списка(думаю надо самим создавать) и программа должна создать третий список, содержащий общие элементы этих двух списков.

[volvo]

Ну, насчет создать первые 2 списка - это здесь:
Все о динамических структурах данных -> Списки

А по поводу создать третий список - что-то такого типа:

Function ExistsInList(L: Point; X: Integer): Boolean;
Begin
  ExistsInList := True;
  While L <> nil Do Begin
    If L^.number = X Then Exit;
    L := L^.next;
  End;
  ExistsInList := False;
End;

...
{ В основной программе: }
ThirdList := nil;
p := FirstList;
while p <> nil do begin
  If ExistsInList(SecondList, p^.number) and
     not ExistsInList(ThirdList, p^.number) Then Begin
    { Добавить элемент p^.number в третий список }
  End;
  p := p^.next;
end;