Pascal/Turbo Pascal - Ayuda con semaforo

Hola, neesito ayuda, y esta ves es con un semaforo que me simule una interseccion. Necesito que dos carros se aproximen a la interseccion, que si el semaforo se pone verde, primero cruce el de la derecha. El semaforo debe de durar 30 segundos en verde, 5 en amarillo y 30 en rojo. Muchisimas gracias

lo encararia con un case respento a las luces del semaforo, se puede usar un enumeratio , un integer, un caracter o string, y luego un for para tener un buble de delay hasta 3 segundos. Es muy sencillo

alguien que lo tenga favor de facilitar ese programa