Работа с динамическими данными. Delphi

[Mr_freeman]

Всплыла такая задачка: с клавиатуры заполняются два списка(L,L1) (длина любая) состоящие просто из чисел:

type
point=^rec;
rec=record
d : integer;
point; {поле адреса}
end;

Вводится число E, нужно описать процедуру которая вставляет список L1 в L после числа E.

ПРимер:
L: 1 2 3 4 5 6 7 8 9
L1: 50 51 52
E: 6
Результат:
L: 1 2 3 4 5 6 50 51 52 7 8 9

Ребят помогите пожалуйста, два часа уже сижу над задачей этой, завтра сдавать надо уже. Надо сделать в консоль апликэйшоне.

Если поможет, вот кусок кода который я написал(Ввод списков):

type
point=^rec;
rec=record
d : integer;
sld : point;
end;
var L,L1,P,P1: point; i,j,E,dd:integer;
.......

Writeln('vvedite L');
P:=nil;
new(L);
Readln(dd);
while dd <> 0 do
begin
new(L);
L^.d:=dd;
L^.sld:=P;
Readln(dd);
P:=L;
end;
L:=P;
Writeln('vvedite L1');
P1:=nil;
new(L1);
Readln(dd);
while dd <> 0 do
begin
new(L1);
L1^.d:=dd;
L1^.sld:=P1;
Readln(dd);
P1:=L1;
end;
L1:=P1;

[Mr_freeman]

ВсЁ не надо, сам все сделал. Я КРУТ!