2 одноаправленных списка, обратный порядок Опции

[arr_lenny]

Задача такая
Дано 2 однонаправленных списка целых чисел.
Надо в первый список после максимального элемента вставить 2ой список, но в обратном порядке(вот с этим то обратным порядком проблемы)
Надеюсь на помощь, всех с Наступающим =)

type
 list=^elem;
  elem=record
   info:integer;
   next:list;
  end;

var l,p,q,l2,p2,q2,w:list; x,y,max:integer;


begin
 writeln('Первый');
 new(l);
 readln(x);
 l^.info:=x;
 p:=l;
 while x<>0 do
  begin
  new(q);
  readln(x);
  q^.info:=x;
  p^.next:=q;
  p:=q;
end;
p^.next:=nil;

writeln('Второй');
 new(l2);
 readln(y);
 l2^.info:=y;
 p2:=l2;
 while y<>0 do
  begin
  new(q2);
  readln(y);
  q2^.info:=y;
  p2^.next:=q2;
  p2:=q2;
end;
p2^.next:=nil;


p:=l;
max:=p^.info;
while p^.next<>nil do
 begin
  if p^.info>max then max:=p^.info;
  p:=p^.next;
 end;



p:=l; p2:=l2;
while p^.next<>nil do
 begin
  if p^.info=max then
  begin
       new(q);


            q^.info:=p2^.info;
            q^.next:=p^.next;
            p^.next:=q;

            p2:=p2^.next;


            while p2^.next<>nil do
            begin
            new(w);
            w^.info:=p2^.info;
            p^.next:=w;
            w^.next:=q;
            w:=q;
            p2:=p2^.next;
            end;

          end;
  p:=p^.next;
 end;

p^.next:=nil;
writeln('Измененный') ;
p:=l;
while p^.next<>nil do
 begin
 writeln(p^.info);
 p:=p^.next;
 end;
end.