procedure Pack (Source: unpacked_array;
FirstElement: index_type;
var Dest: packed_array);
Pack is defined in ISO 7185 Pascal and supported by all known Pascal variants except UCSD/Borland Pascal and its variants.