Pascal/Turbo Pascal - Ayuda en un ejercicio simple!!

Estoy haciendo un programa que convierte la temperatura del agua en grados fahrenheit a celsius, y determina si el agua esta en estado gaseoso, liquido o solido.. Eso ya lo hize, pero quiero hacer que cuente el resultado de las veces que el agua es solido, gaseoso y liquido? Eso no puedo hacer, ya lo intente y no pude.

Inserta un contador en las tres (gaseoso, liquido o solido).
O sea cuando detecte que es gaseoso entonces la variable que crees gas la poses que
sea gas := gas + 1; teniendo en cuenta inicial izar gas a 0.
Lo mismo para las otras liq y sol cuando termine el proceso tendrás las veces que se encontraron en cada
estado.