помогите мыслями)

Задача на динамические структуры.
Задание: вставки списка в самого себя вслед за первым вхождением числа х.
Имеющиеся наработки:

program dinam;
uses crt;
type nodeptr=^node;
node=record
number:integer;
nextnode:nodeptr;
end;
var list:nodeptr;
n:integer;

{ввод связанного списка}
procedure list_init(var list:nodeptr);
var p:nodeptr;
i:integer;
begin
write('введите число: ');
read(list^.number);
p:=list;
if (2<n) or (2=n)
then begin
for i:=2 to n do
begin
new (p^.nextnode);
write('введите число: ');
read(p^.nextnode^.number);
p:=p^.nextnode;
end;
end;
p^.nextnode:=nil;
end;

{печать связанного списка}
procedure read_list(var list:nodeptr);
var p:nodeptr;
i:integer;
begin
p:=list;
for i:=1 to n do
begin
write (p^.number, '; ');
p:=p^.nextnode;
end;
end;


begin
clrscr;
write('введите количество элементов списка ');
read(n);
list_init(list);
writeln;
read_list(list);
odinak_chisla(list);
repeat until keypressed;
end.