Список+указатели, Вставка нового элемента в список Опции

[Юличка]

Помогите составить программу, которая вставляет в список L
новый элемент F перед первым вхождением элемента Е,
если Е входит в L. Программа должна быть реализована
с применением динамических переменных (указателей).

[volvo]

Если список объявлен вот так:

Type
  point = ^item;
  item = record
    number: integer;
    next: point
  end;
Var my_root: point;

то процедура,

которая вставляет в список L новый элемент F перед первым вхождением элемента Е, если Е входит в L.

, будет такой:

procedure do_insert(x: integer);
var q: point;
begin
  search(my_root, x, q);
  if q <> nil then insert_before(q, x)
end;

Все остальное, что необходимо для создания списка и его заполнения - здесь:
FAQ: Динамические структуры данных - Списки