Pascal/Turbo Pascal - cambiar los colores

le`s pido si me pueden ayudar lo q pasa q no puedo q los colores(textcolor(200);)
q se puedan cambiar aleatoriamente automatico pero no se alquien me puede ayudar

Hola Iván!! Para inicializar el generador de números aleatorios, usa el procedimiento Randomize; luego, cuando lo necesites, haces:
TextColor(Random(x));
Ésto te dará un color aleatorio, dependiendo del valor que le des a "x".

Un abrazo!

Solo puedes elejir entre 16 colores, del 0 al 15. No existe el color 200.

Lo que puedes hacer, no se si en todas las versiones, pero en Turbo Pascal 7 sí, es hacer que titile un string, por ejemplo:

TextColor(Red + Blink);
Write('Algo');

Ésto hará que la palabra "Algo" aparezca intermitentemente en color rojo.

Un abrazo!