Слияние упорядоченных списков в третий (найдите ошибку)

type
   PList = ^TList; {Ukazatel}
   TList = record { Element }
     info : integer;    { Informacionnaya chast }
     next : PList; { Ukazatel na sled. element }
    end;
VAR
  head1,head2:PList;
  t:integer;
{procedura formiruet spisok so storogem}
Procedure MakeList (var head:PList);
var
  p,last:PList;
  r:integer;
begin
new(head);
last:=head;
readln(R);
  while R<>0 do
   begin
    new(p);
    p^.info:=r;
    last^.next:=p;
    last:=p;
    readln(R);
   end;
 last^.next:=NIL;
end;
 
Procedure PrintList (head:PList);
var
  p:PList;
begin
p:=head^.next;
  while p<>NIL do
   begin
    write (p^.info:6);
    p:=p^.next;
   end;
end;
 
 
{Procedura proizvodit sliyanie 2x spiskov}
Procedure Unite (var head1, head2 : PList);
  var cur : PList;
  begin
 {esli 2 spisok pystoi nichego ne delat}
    if head2<>nil then
      begin
 { esli 1 spisok pystoi to, vixodnim spiskom budet 2}
    if head1=nil then
       head1:=head2
    else  { perebor 1 spiska do poslednego elementa}
     begin  cur:=head1;
      while cur^.next<>nil do
           cur:=cur^.next;
      { Poslednii element 1 spiska ykazivaet na nachalo 2}
      cur^.next:=head2;
     end;
     head2:=nil; { 2 spisok anyliruetsya}
  end;end;
 
begin
 writeln ('vvedite chisla do 0');
 makelist (head1);
 makelist (head2);
 writeln ('pervii spisok');
 printlist (head1);
 writeln ('vtoroi spisok');
 printlist (head2);
 unite (head1,head2);
 writeln ('Otvet-');
 printlist (head1);
readln;
end.

{ Poslednii element 1 spiska ykazivaet na nachalo 2}
cur^.next:=head2;

{ Poslednii element 1 spiska ykazivaet na nachalo 2}
cur^.next:=head2^.next;