simple pascal test program