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

так получается,что в тот момент,когда мы обращаемся к спискам p1 и p2 их куазатели стоят в конце после вывода их на экран.так?
тогда поэтому и происходит так,что результат выводится в обратном порядке.
а как тогда обратиться к началу тех двух списков?

хотя нет.такого быть не может.тогда бы ссылки на следующий элемент не было(

Сообщение отредактировано: Tribunal - 9.05.2006 12:38