some changes in case for produced pascal code