Сложение элементов 2 списков Опции

[Tribunal]

мне нужно произвести сложение
2 списков поэлементно...

вот то,что я делаю,но при выполнении собственно сложения выдается ошибка

read(n);
randomize;

new(first);{создание первого списка}
first^.next:=nil;
first^.inf:=random(10)-1;
for i:=1 to n-1 do
 begin
   new(p1);
   p1^.inf:=random(10)-1;
   p1^.next:=nil;
   p1^.next:=first;
   first:=p1;
 end;
t:=p1;
while t<>nil do
  begin
    writeln(t^.inf);
    t:=t^.next;
  end;

new(first);{создание второго списка}
first^.next:=nil;
first^.inf:=random(10)-1;
for i:=1 to n-1 do
 begin
   new(p2);
   p2^.inf:=random(10)-1;
   p2^.next:=nil;
   p2^.next:=first;
   first:=p2;
 end;
t:=p2;
while t<>nil do
  begin
    writeln(t^.inf);
    t:=t^.next;
  end;

new(first);{выполнение сложения}
first^.next:=nil;
first^.inf:=p1^.inf+p2^.inf;
p1:=p1^.next;
p2:=p2^.next;
while p1<>nil do
while p2<>nil do
 begin
  new(p3);
  p3^.inf:=p1^.inf+p2^.inf;
  p3^.next:=nil;
  p3^.next:=first;
  first:=p3;
  p1:=p1^.next;
  p2:=p2^.next;
 end;

t:=p3;
while t<>nil do
  begin
    writeln(t^.inf);
    t:=t^.next;
  end;

помогите,пожалуйста,понять,в чем тут дело...

Сообщение отредактировано: volvo - 2.11.2006 19:05

[Tribunal]

у меня вот есть такая процедура создания списка с добавлением элементов в конец списка:

new(first);
first^.next:=nil;
read(first^.inf);

for i:=1 to n do
 begin
    new(p);
    read(p^.inf); 
    p^.next:=nil;
    t:=first;
    t^.next:=p;
    t:=t^.next;
 end;

только в ней что-то не так.только что?