Написать функцию, которая создает список L2, являющийся копией списка L1, начинающегося с данного узла

[Joinack]

Доброго времени! Всех с праздниками!
Есть лабораторная работа http://valera.asf.ru/delphi/lab/lab6.html , по этой работе надо сделать 5 вариант задания "Написать функцию, которая создает список L2, являющийся копией списка L1, начинающегося с данного узла" Но к сожалению не совсем понимаю как. Нужна помощь. Объясните пожалуйста.

[Al']

Program L14P1Z5;
type
list= ^l;
l=record
a,c:integer;
n,v:list;
end;
function f(m:integer):list;
var head,x,head1,y,redact:list;
i,k,z:integer;
begin
z:=random(10,50);

for i:=1 to z do
begin
if i=1 then
begin
new(head);
new(head1);
head^.a:=random(-10,10);
head1^.c:=head^.a;
head^.n:=nil;
head1^.v:=nil;
x:=head;
y:=head1;
end;
if i>1 then
begin
new(x^.n);
new(y^.v);
x:=x^.n;
y:=y^.v;
x^.a:=random(-10,10);
y^.c:=x^.a;
x^.n:=nil;
y^.v:=nil;
end;
end;

writeln('Лист 1');
while head<>nil do
Begin
Write(head^.a, ' ');
head:= head^.n;
End;
writeln;

writeln('Отображение второго листа с ',m,' позиции');
for i:=1 to m-1 do
begin
redact := Head1;
Head1 := Head1^.v;
Dispose(redact);
end;
while head1<>nil do
Begin
Write(head1^.c, ' ');
head1:= head1^.v;
End;
end;

//Основная функция
var b:integer;
begin
write('С какой позиции отображать список? С ');
readln(b);
f(b);
end.