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