diff --git a/01_Acey_Ducey/pascal/object-pascal/game.pas b/01_Acey_Ducey/pascal/object-pascal/game.pas
index 1a263159..1e983f7c 100644
--- a/01_Acey_Ducey/pascal/object-pascal/game.pas
+++ b/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;
diff --git a/01_Acey_Ducey/pascal/simple/aceyducey.pas b/01_Acey_Ducey/pascal/simple/aceyducey.pas
index 35a9dd64..fa049eb0 100644
--- a/01_Acey_Ducey/pascal/simple/aceyducey.pas
+++ b/01_Acey_Ducey/pascal/simple/aceyducey.pas
@@ -118,10 +118,10 @@ begin
 end;
 
 begin
+  Randomize;
   ClrScr;
   PrintGreeting;
   repeat
-    Randomize;
     Stash:= 100;
     repeat
       PrintBalance;