AceyDucey/pascal: Move Randomize()

Randomize() should be called only once and as soon as possible.

01_Acey_Ducey/pascal/object-pascal/game.pas

@@ -85,6 +85,7 @@ end;
 
 constructor TGame.Create;
 begin
+  Randomize;
   FDeck:= TDeck.Create;
 end;
 
@@ -99,7 +100,6 @@ begin
   ClrScr;
   PrintGreeting;
   repeat
-    Randomize;
     FStash:= 100;
     repeat
       PrintBalance;

01_Acey_Ducey/pascal/simple/aceyducey.pas

@@ -118,10 +118,10 @@ begin
 end;
 
 begin
+  Randomize;
   ClrScr;
   PrintGreeting;
   repeat
-    Randomize;
     Stash:= 100;
     repeat
       PrintBalance;