pascal finish
modify pascal