randomize example

Author: CHiPs44

examples/033-array3.pas

@@ -6,16 +6,17 @@
 Program Arrays;
 
 Type
-    ArraySubRange = 1..10;
+    ArraySubRange = -9..9;
     NumberArray = Array[ArraySubRange] Of Integer;
 
 Procedure InitializeArray(Var Numbers: NumberArray);
 Var
     I: Integer;
 Begin
     WriteLn('InitializeArray');
+    Randomize;
     For I := Low(Numbers) To High(Numbers) Do
-        Numbers[I] := Random(1000);
+        Numbers[I] := 100 + Random(900);
 End;
 
 Procedure SortArray(Var Numbers: NumberArray);