From 6977afdef090628d7c96e4fb23e019cb5657d0cb Mon Sep 17 00:00:00 2001
From: baka0815 <git@baka0815.de>
Date: Mon, 3 Jan 2022 18:24:09 +0100
Subject: [PATCH] AceyDucey/pascal: Move Randomize()

Randomize() should be called only once and as soon as possible.
---
 01_Acey_Ducey/pascal/object-pascal/game.pas | 2 +-
 01_Acey_Ducey/pascal/simple/aceyducey.pas   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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;