type
  single    = array[0..3] of byte;