yay! working pascal!!!!!!!