Crops lose, wine wins as Balkan farmers face record heat