I need to debugg this

Plese help debug

// This program should create a report that lists and counts the number of customers in eaclh ZIP code. The input file is sorted in ZIP code order. start Declarations InputFile inFile string TITLE"Customers by ZIP Code'" string COL_HEADSNme ZIP Code" string name string zip num count0 string oldZip getReady O getReadyCO output TITLE output COL_HEADS Yes not eof? produceReport( No open inFile "CustomersByZip.dat" finishUpO input name, zip from inFile stop return