Извлечь из очереди начальные элементы и вывести их значения и новые адреса начала и конца очереди

program Pointer19;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
//    Prev: 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;
 
function pop(var P1,P2:PNode):integer;
var
 head: PNode;
begin
 if P1<>nil then
  begin
   if P1=P2 then
    begin
     Result:=P1.Data;
     P1:=nil;
     P2:=nil;
    end
   else
    begin
     Result:=P1^.Data;
     head:=P1^.Next;
     Dispose(P1);
     P1:=head;
    end;
  end
  else Result:=0;
end;
 
var
 P1,P2:PNode;
 a:^Word;
 i,N:integer;
begin
 CreateQueue(P1,P2);
 
 Write('N:');
 Readln(N);
 for i:=1 to N do Writeln(pop(P1,P2));
 
 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;
 
end.