move types to other file

binary.inc

@@ -1,3 +1,8 @@
+type
+   ByteString  = String[2];  { String representing a u8.  }
+   ShortString =  String[4]; { String representing a u16. }
+
+
 function ValidHexDigit(bval: Byte): Boolean;
 var
    IsValid : Boolean = False;

test.pas

@@ -1,8 +1,5 @@
 program test;
 
-type
-   ByteString =  String[2];
-
 {$I 'binary.inc'}
 
 var