tparray9.pp 161 B

12345678910111213
  1. { %fail }
  2. program PCErrorB;
  3. {$bitpacking on}
  4. {$r+}
  5. var
  6. chs :packed array [1..10] of char;
  7. ch1 :array[1..10] of char;
  8. begin
  9. unpack(chs,ch1,2); { WRONG }
  10. end.