create test pascal-source

test source to parse