Cписки.Помогить плз.Никак разобраться не могу...:(

[Digital]

Задали нам в универе 4 лабораторных работы,3 сделал,но четвертая со списками и я никак не могу разобраться.Обзвонил всех знакомых хорошо разбирающихся в паскале,никто не знает .Лабораторные последний срок сдачи во вторник.Прошу помоч решить мне задачу,очень нужно
Задача такая:Даны 2 линейных списка.Написать программу которая создает третий список из элементов двух данных.
Помогите пожайлусто если сможите.

[Tayfun]

Помогите пожайлусто если сможите.

Сможем...!

Program spisok;
Uses crt;
type
TPtr=^TElem;
TElem=record
inf:Real;
link:TPtr
end;
var
v:real;
i,n:integer;
BegSO,EndSO,BegS2,EndS2,BegS1,EndS1:TPtr;
{Dobovlyaem elementi spiskov}
procedure Add1(t:Real);
var
p:TPtr;
begin
new(p);
p^.inf:=t;
p^.link:=nil;
if EndS1=nil then BegS1:=p else EndS1^.link:=p;
EndS1:=p;
end;

procedure Add2(t:Real);
var
p:TPtr;
begin
new(p);
p^.inf:=t;
p^.link:=nil;
if EndS2=nil then BegS2:=p else EndS2^.link:=p;
EndS2:=p;
end;

procedure AddO(t:Real);
var
p:TPtr;
begin
new(p);
p^.inf:=t;
p^.link:=nil;
if EndSO=nil then BegSO:=p else EndSO^.link:=p;
EndSO:=p;
end;
{Vivodim spisok na ekran}
procedure show1;
var
p:TPtr;
begin
p:=BegS1;
while p<>nil do begin
write(p^.inf:1:2,' ');
AddO(p^.inf); {Dobavlyaem v tretiy spisok}
p:=p^.link;
end;
end;

procedure show2;
var
p:TPtr;
begin
p:=BegS2;
while p<>nil do begin
write(p^.inf:1:2,' ');
AddO(p^.inf);{Dobavlyaem v tretiy spisok}
p:=p^.link;
end;
end;

procedure showO;
var
p:TPtr;
begin
p:=BegSO;
while p<>nil do begin
write(p^.inf:1:2,' ');
p:=p^.link;
end;
end;

begin
clrscr;
writeln('Vvedite kolichestvo elementov pervogo spiska');
readln(n);
for i:=1 to n do begin
writeln('Vvedite ',i,' element');
readln(v);
Add1(v);
end;
writeln('Vvedite kolichestvo elementov vtorogo spiska');
readln(n);
for i:=1 to n do begin
writeln('Vvedite ',i,' element');
readln(v);
Add2(v);
end;
writeln;
write('Spisok 1:');
Show1;
writeln;
Write('Spisok 2:');
Show2;
writeln;
Write('Spisok 3:');
ShowO;
readkey;
end.

[Digital]

Огромнейшее спасибо!!!