Pascal/Turbo Pascal - alguien que sepa programar en c++ que me ayude por favor!!

hola amigos, necesito saber cual es mi error y si esta bien lo que hice , sobre el trabajo..lo que estoy intentando hacer es que me lea un archivo el cual tengo que leer linea por linea y encontrar tipos de bebidas que me los dan y cuantas "palabras positivas"(que también me las dan) se encuentran en la misma linea por el tipo de bebida y luego lanzar cual es la bebida que se repite mas veces. el gran problema que tengo principalmente es que me lanza solo la primera bebida y no las demás.. podrían ayudarme a entender en que estoy mal y como podría solucionarlo por favor.saludos!! :)