// This program should create a report that lists and counts the number of customers in each ZIP code. The input file is sorted in ZIP code order start Declarations InputFile inFile string TITLE = "Customers by ZIP Code" string COL_HEADS "Name ZIP Code" string name string zip num count = 0 string oldZip getReady O getReady O output TITLE Yes output COL_HEADS not eof? produceReport) No open inFile "CustomersByZip.dat" finishUp O input name, Z1p from inFile stop return