diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 54840a0a37..d996c083b0 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -166,6 +166,17 @@ Type
 { procedure type }
   TProcedure  = Procedure;
 
+{ array types }
+  IntegerArray  = array[0..$effffff] of Integer;
+  TIntegerArray = IntegerArray;
+  PIntegerArray = ^IntegerArray;
+  PointerArray  = array [0..512*1024*1024-2] of Pointer;
+  TPointerArray = PointerArray;
+  PPointerArray = ^PointerArray;
+{$ifdef HASINTF}
+  TBoundArray = array of integer;
+{$endif HASINTF}
+
 const
 { Maximum value of the biggest signed and unsigned integer type available}
   MaxSIntValue = High(ValSInt);
@@ -558,7 +569,10 @@ const
 
 {
   $Log$
-  Revision 1.41  2002-01-24 18:27:06  peter
+  Revision 1.42  2002-01-25 17:39:35  peter
+    * array types added
+
+  Revision 1.41  2002/01/24 18:27:06  peter
     * lowercase() overloaded
 
   Revision 1.40  2002/01/24 12:33:53  jonas