Создать два связанных списка, объединить их в один

uses crt;
type
PNode=^Node;
Node=record
 data:integer;
 next:PNode;
end;
var
HeadP1,HeadP2,HeadP3,tm:PNode;
i:integer;
 
procedure AddToSpis(var HeadP:PNode;k:integer);
var
tmp:PNode;
begin
  if HeadP=nil then
    begin
      New(HeadP);
      tmp:=HeadP;
    end
  else
     begin
       tmp:=HeadP;
         while tmp^.next <> nil do
           tmp:=tmp^.next;
         New(tmp^.next);
         tmp:=tmp^.next;
     end;
  tmp^.next:=nil;
  tmp^.data:=k;
end;
procedure Print(HeadP:PNode);
begin
   while HeadP <> nil do
     begin
       write(HeadP^.data:4);
       HeadP:=HeadP^.next;
     end;
end;
procedure FreeSpis(var HeadP:PNode);
var
tmp:PNode;
begin
  while HeadP <> nil do
     begin
       tmp:=HeadP;
       HeadP:=HeadP^.next;
       Dispose(tmp);
     end;
end;
procedure FormThird(Head1,Head2:PNode; var Head3:PNode);
var
tmp,tmp1:PNode;
begin
  while Head1 <> nil do
    begin
       AddToSpis(Head3,Head1^.data);
       Head1:=Head1^.next;
    end;
  while Head2 <> nil do
    begin
      AddToSpis(Head3,Head2^.data);
      Head2:=Head2^.next;
    end;
end;
 
begin
  HeadP1:=nil;
  HeadP2:=nil;
  HeadP3:=nil;
     writeln('Заполнение 1-го списка,признак окончания 99');
     read(i);
    repeat
      AddToSpis(HeadP1,i);
      read(i);
    until i=99;
    writeln;
    writeln('Заполнение 2-го списка,признак окончания 99');
     read(i);
    repeat
      AddToSpis(HeadP2,i);
      read(i);
    until i=99;
    ClrScr;
  writeln('Сформированный список: первый ');
  Print(HeadP1);
  writeln;
  writeln('Сформированный список: второй ');
  Print(HeadP2);
  FormThird(HeadP1,HeadP2,HeadP3);
  writeln;
  writeln('Сформированный список: третий ');
  Print(HeadP3);
  FreeSpis(HeadP1);
  FreeSpis(HeadP2);
  FreeSpis(HeadP3);
end.