Переместить N начальных элементов первой очереди в конец второй очереди

type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
    end;
 
procedure CreateQueue(var P1,P2:PNode);
var
 pt1,pt2:PNode;
 i,N:integer;
begin
 Write('NumEl:');
 Readln(N);
 new(p1);
 Write('num: ');
 Readln(P1^.Data);
 pt2:=p1;
 
 for i:=1 to N-1 do
  begin
   new(pt1);
   Write('num: ');
   Readln(pt1^.Data);
   pt2.Next:=pt1;
   pt2:=pt2.Next;
  end;
 pt2.Next:=nil;
 p2:=pt2;
end;
 
procedure Move(var P1,P2,P3,P4:PNode;N:integer);
var
 i:integer;
begin
 if P1<>nil then
  begin
   P4^.Next:=P1;
   for i:=1 to N-1 do
    if P1<>P2 then P1:=P1^.Next;
 
   P4:=P1;
   if p1<>p2 then P1:=P1^.Next
   else
    begin
     P1:=nil;
     P2:=nil;
    end;
   P4^.Next:=nil;
  end;
 
end;
 
var
 P1,P2,P3,P4:PNode;
 a:^Word;
 N:integer;
begin
 
 CreateQueue(P1,P2);
 CreateQueue(P3,P4);
 
 Write('N:');
 Readln(N);
 
 Move(P1,P2,P3,P4,N);
 Readln;
 
 if p1=nil then Writeln('P1: nil')
 else
  begin
   a:=Addr(P1);
   Writeln('P1: ',a^);
  end;
 
 if p2=nil then Writeln('P2: nil')
 else
  begin
   a:=Addr(P2);
   Writeln('P2: ',a^);
  end;
 
 if p3=nil then Writeln('P3: nil')
 else
  begin
   a:=Addr(P3);
   Writeln('P3: ',a^);
  end;
 
 if p4=nil then Writeln('P4: nil')
 else
  begin
   a:=Addr(P4);
   Writeln('P4: ',a^);
  end;
end.

procedure CreateQueue(var P1,P2:PNode);
var
 pt1,pt2:PNode;
 i,N:integer;
begin
 Write('NumEl:');
 Readln(N);
 new(p1);
 Write('num: ');
 Readln(P1^.Data);
 pt2:=p1;
 
 for i:=1 to N-1 do
  begin
   new(pt1);
   Write('num: ');
   Readln(pt1^.Data);
   pt2^.Next:=pt1;
   pt2:=pt2^.Next;
  end;
 pt2^.Next:=nil;
 p2:=pt2;
end;