Списки, HELP!!!! Опции

[vi-rus]

Составить программу, которая вставляет в список L за первым вхождением элемента Е все элементы списка L1, если Е входит в L.
Volvo, дай ПОЖАЛУЙСТА ссылку ,не могу найти

[volvo]

Я тоже не смог найти пока... Тогда так:

как искать элемент в списке - написано в FAQ, тогда вся твоя программа сведется вот к этому:

var p, found: plist;
...
found := search(L, E);
if found <> nil then begin

  p := L1;
  while p^.next <> nil do p := p^.next;
  p^.next := found^.next;
  found^.next := L1;

end;