Прошу вашей помощи в реализации программы по динамическим структурам

[technotamplier]

Не очень люблю динамические структуры, как и они меня, постоянно попадаю на них по списку поэтому прошу вашей помощи в реализации таковой.

текст задачи таков:
Составить программу, которая вставляет в список L новый элемент F, перед первым вхождением элемента E, если E входит в L.

алгоритм вставки нового элемента м/у двумя другими:

new(PP);
PP^.P:=Tek^.P
Tek^.P:=PP;