(Under construction.)
procedure Pack (Source: unpacked array; FirstElement: index type; var Dest: packed array);