Линейный-односвязный список

[Айдар]

Ребят, нужна помощь в создании токого списка, и добавление 1 эл после заданного.
Данно
type
tpel:^element;
element:record
num:inteher;
p:tpel;
end;
var
first(ук на 1 эл списка) ,n(ук на эл перед которым доб новый),f(ук на эл после которого доб новый эл),q (ук на новый эл):tpel;
Num-это информ поле, любое число (1,2,3,4,5...)

Кто поможет написать программную часть теорию, я знаю

[Grag]

Если договоримся - сделаю...
Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61