Описать одну из сложных динамических структур данных

[Sobaka_ru]

Нужно написать программку... Тема: Линейный односвязный список. Добавление узла после заданного.

P.S. на форуме искал посчет этого, ничего подходящего не нашел...

[zhan313]

type
pspis=^spis;
spis=record
numb:integer;
next: pspis;
end;

var
prim,tek, tmp, spisok : pspis;
i : integer;
begin
{создадим начало списка}
new(spisok);
spisok^.numb:=0;
spisok^.next:=nil;
{добавим к нему элементов}
prim:=spisok;
for i:=1 to 5 do
begin
new(tek);
tek^.numb:=i;
tek^.next:=nil;
prim^.next:=tek;
prim:=tek;
end;
{поиск заданного}
prim:=spisok;
while (prim^.numb<>3) and (prim<>nil) do prim:=prim^.next;
{вставка после заданного}
new(tek);
tek^.numb:=10;
tek^.next:=prim^.next;
prim^.next:=tek;
{печать измененного}
prim:=spisok;
while prim<>nil do
begin
write(prim^.numb:3);
prim:=prim^.next;
end;
writeln;
{освобождение памяти}
tek:=spisok;
while tek<>nil do
begin
tmp:=tek^.next;
dispose(tek);
tek:=tmp;
end;
end.

Примерно так, вроде память не теряется.

[Sobaka_ru]

Паскаль это хорошо, но мне на надо на си..

[Sobaka_ru]

Ну так кто поможет?