Quality Food solutions

Quality Food was solved using Pascal by 2 contestants. Solution sizes: average 2597 bytes (shortest: 2319; longest: 3154).