pascal: array of const experiment