Сложение элементов 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]

а результирующий список выводится в обратном порядке))
этого можно избежать?или мне список инвертировать?)

[volvo]

а результирующий список выводится в обратном порядке))

Точно так же, как и исходные

Можно список инвертировать, можно просто по-другому его создавать, чтобы он сразу создавался в "прямом" порядке... Что выбираешь?