pascal: array of interface test