pascal: quick test of writestr behavior