tparray21.pp 256 B

123456789101112131415
  1. {$mode macpas}
  2. program FatalError_200301231;
  3. type
  4. note_name_type = packed array[0..17] of string[2];
  5. var
  6. nn: note_name_type;
  7. s: string[ 80];
  8. begin
  9. nn[1]:= 'x';
  10. s:=concat( 'y', nn[ 1]);
  11. if (s <> 'yx') then
  12. halt(1);
  13. end.