Uso de colores de fondo y primer plano

Buenas noches hago este contacto para poner al alcance de ustedes una tabla de valores para el uso de colores en sus programas en Pascal mediante las funciones

TextBackground (establece color de fondo)
Textcolor  (establece color de la letra)

Pueden ser muy útiles para darle vistosidad a sus programas


Colores oscuros (para primer plano y fondo) Colores claros (solo para primer plano)Constante Valor   Color                                            Constante   Valor      Color
Black           0    Negro                                             DarkGray        8    Gris Oscuro
Blue             1    Azul                                                LightBlue         9    Azul claro
Green          2    Verde                                              LightGreen     10    Verde claro
Cyan           3    Cyan                                               LightCyan       11    Cyan claro
Red            4     Rojo                                               LightRed         12    Rojo claro
Magenta     5     Magenta                                         LightMagenta  13    Magenta claro
Brown        6    Café                                                Yellow            14    Amarillo
LightGray   7    Gris claro                                         White             15    Blanco

Programa de ejemplo

Program prueba_color;
uses crt;
  var color_letra,color_fondo:word;
  Begin
    randomize;
    repeat
      color_letra:=random(15);
      color_fondo:=random(7);
      TextBackground(color_fondo);
      TextColor(color_letra);
      clrscr;
      writeln('ESTO ES UNA PRUEBA DE USO DE COLORES EN PASCAL');
      writeln;
      writeln('Pulse cualquier tecla para probar');
      writeln('Pulse ESC para salir');
   until (readkey=chr(27));
END.