Создать стек из случайных целых чисел

Const Max = 5;
Type
  Stack = ^tStack;
  tStack = Record
             N    : Longint;
             Next : Stack;
           end;
 Var
   P1,P2 : Stack;
   i,k   : Longint;
   fl    : Boolean;
 
 Procedure DisposSt(Var P : Stack);
 Var Ptmp : Stack;
 Begin
   While P<>nil do
   Begin
     Ptmp:=P;
     P:=P^.Next;
     Dispose(Ptmp);
   end;
 end;
 
 Procedure PushSt(Var P : Stack; A : Longint);
 Var Ptmp : Stack;
 Begin
   New(Ptmp);
   Ptmp^.N:=A;
   Ptmp^.Next:=P;
   P:=Ptmp;
 end;
 
 Function PopSt(Var P : Stack; Var  A : Longint) : Boolean;
 Var Ptmp : Stack;
 Begin
   If P=nil then PopSt:=False else
   Begin
     A:=P^.N;
     Ptmp:=P;
     P:=P^.Next;
     Dispose(Ptmp);
     PopSt:=True;
   end;
 end;
 
 Begin
   P1:=nil; P2:=nil;
   
   For i:=1 to max do
   Begin
     k:=Random(100);
     PushSt(P1,k);
     Writeln(k);
   end;
   Writeln;
   
   While P1<>nil do
   Begin
     fl:=PopSt(P1,k);
     Writeln(k);
     If fl then
       If Odd(k) then PushSt(P2,k);
   end;
   Writeln;
   
   While P2<>nil do
   Begin
     fl:=PopSt(P2,k);
     If fl then PushSt(P1,k);
   end;
   
   While P1<>nil do
   Begin
     fl:=PopSt(P1,k);
     If fl then Writeln(k);
   end;
   
   DisposSt(P1);
   DisposSt(P2);
 end.