Pascal/Turbo Pascal - cambiar color programa en consola.

Uses CRT;

Begin

 TextColor(White);

  Clrscr;

  WriteLn('Color de fondo por defecto');

  TextBackground(Green);

  Clrscr;

  WriteLn('Color de fondo verde');

  TextBackground(Brown);

  Clrscr;

  WriteLn('Color de fondo marrón');

  TextBackground(Black);

  Clrscr;

 WriteLn('Color de fondo negro');

end.

{Mira a ver si ayuda }

program color;

  uses

     crt;

  var

     fondo, letra : integer;

  begin

      textcolor(15);

      textbackground(0);

      clrscr;

      fondo := 15;

      letra := 1;

      textcolor(letra);

      textbackground(fondo);

      repeat

      gotoxy(26,11);write(' Pulse Una Tecla Para Terminar ');

      delay(120);

      fondo := fondo - 1;

      if fondo = -1 then

      fondo := 15;

      letra := letra + 1;

      if letra > 15 then

      letra := 1;

      textcolor(letra);

      textbackground(fondo);

      until keypressed;

      textcolor(15);

      textbackground(0);

      clrscr;

      {si quieres color fondo toda la pantalla entra

      textbackground(numero de color 0 a 15) y clrscr}

  end.

program activar_color_de_fondo;

uses

  SysUtils,

  console;

begin

textbackground(14);

clrscr;

readln;

end.