fixed pascal syntax