Pascal - Come settare il colore dello sfondo?

Salve ragazzi.
Sono nuovo di qui,studio il pascal a scuola ma in maniera pessima tanto che sono al secondo anno e non siamo andati più avanti di IF...THEN...ELSE
Ho fatto qualcosa da autodidatta leggendo il vostro sito e ho deciso di iscrivermi oggi.
Ho un problema con un programmino,non vedo lo sfondo colorato.
Potete aiutarmi??

program badjoke;
uses crt;
var a,b,c,d:char;
begin
        textbackground (8);
        sound(262); delay(400);
        sound (330); delay(400);
        sound (392); delay(400);
        sound (524); delay(400);
        textbackground(red);delay(700);nosound;
end.

Editato da Shutdown...
Perchè usare link esterni quando si
può usare la funzione del forum
per inserire il codice?
Inoltre che titolo è "aiuto"?

Semplicemente perchè TextBackground() setta
il colore dello sfondo delle scritte,
non il colore dello sfondo della finestra.

Poi a che servono quelle variabili?

Mah, non saprei...
Prova a dare un'occhiatina al mio codice:

Program PROVA;

Uses
  (* Importo la Unit CRT,
     per la gestione dello schermo. *)
  Crt;

(* Procedura per suonare. *)
Procedure Play(Freq, Time: Integer);
Begin
  Sound(Freq); (* Suono la frequenza. *)
  Delay(Time); (* Aspetto TOT millisec. *)
  NoSound; (* Chiudo il Device. *)
End;

(* Main del programma *)
Begin
  ClrScr; (* Pulisco schermo. *)
  TextBackground(Blue); (* Setto il colore dello sfondo. *)
  TextColor(LightGreen); (* Setto il colore del testo. *)
  WriteLn('Come puoi notare setti il Background');
  WriteLn('del testo, non dell''intera finestra!');
  Play(262, 400); (* Chiamo la procedura diverse *)
  Play(330, 400); (* volte. *)
  Play(392, 400);
  Play(524, 400);
  Write('Ora premi un tasto per uscire!');
  ReadKey; (* Aspetto la pressione di un tasto. *)
End.

Prova a mettere il comando clrscr; dopo il comando textbackground ^^

ho risolto tutto,vi lascio il mio codice sorgente anche se come programma non è un gran che.
Se vi viene in mente qualcosa di meglio ditemelo.

badjoke.pas
--------------

program badjoke;
uses crt;
begin
        clrscr;
        textcolor(red+128);gotoxy(10,4);write('PRESO!');
gotoxy(20,4);textcolor(red+128);
        write('PRESO!');textcolor(red+128);gotoxy(30,4);
write('PRESO!');textcolor(red+128);gotoxy(40,4);
write('PRESO!');
        textcolor(red+128);gotoxy(50,4);write('PRESO!');
textcolor(red+128);gotoxy(60,4);write('PRESO!');
        sound(262); delay(400);
        sound (330); delay(400);
        sound (392); delay(400);
        sound (524); delay(400);
        sound(262); delay(400);
        sound (330); delay(400);
        sound (392); delay(400);
        sound (524); delay(400);nosound;
        textbackground(red+128);textcolor(18);gotoxy(30,10);
writeln('TI HO FREGATO AMICO!');delay(5000);
        delay(1000);textbackground(black);clrscr;
        gotoxy(25,10); textcolor(18);writeln('il 
tuo computer verr… formattato tra  5 secondi!');delay(500);
        gotoxy(25,10); textcolor(18);writeln('il
 tuo computer verr… formattato tra  4 secondi!');delay(500);
        gotoxy(25,10); textcolor(18);writeln('il 
tuo computer verr… formattato tra  3 secondi!');delay(500);
        gotoxy(25,10);textcolor(18);writeln('il 
tuo computer verr… formattato tra  2 secondi!');delay(500);
        gotoxy(25,10);textcolor(18);writeln('il 
tuo computer verr… formattato tra  1 secondo!');delay(500);
        clrscr;
        textcolor(15);writeln('assign command,c:\command.com');
        textcolor(15);writeln('assign explorer,c:\windows\explorer.exe');
        textcolor(15);writeln('resetcommand');
        textcolor(15);writeln('reset explorer');
        textcolor(15);writeln('harddisk:=c:\windows\.exe');   
        textcolor(15);writeln('insert i,harddisk,12');   
        textcolor(15);writeln('delete hard disk');
        textcolor(15);writeln('delete C:\WINDOWS\system32\dos.rom');   
        textcolor(15);writeln('C:\WINDOWS\system32\
Microsoft\Protect\S-1-5-18\Userwindows boot.bat');
        textcolor(15);writeln('C:\WINDOWS\system|SmWizard');
        textcolor(15);writeln('formatting level 
0');sound (924);delay(1500);nosound;
        clrscr;delay(1000);
        gotoxy(30,10);textcolor(red);writeln('CI 
SEI CASCATO,VERO IDIOTA?!?!?!');delay(5000);
        gotoxy(30,11);textcolor(yellow);writeln('');
        sound(262); delay(400);
        sound (330); delay(400);
        sound (392); delay(400);
        sound (524); delay(400);
        sound(262); delay(400);
        sound (330); delay(400);
        sound (392); delay(400);
        sound (524); delay(400);nosound;
        gotoxy(20,12);textcolor(red+128);
writeln('PREMI UN TASTO QUALSIASI PER CHIUDERE IL
 PROGRAMMA');
        gotoxy(30,13);writeln(' E AFFERMARE CHE SEI UN IDIOTA!!');
        gotoxy(30,15);textcolor(yellow);
writeln('');
        readkey;
        clrscr;
end.

Editato da Shutdown:
Il post distruggeva il layout del sito.

Editato da Shutdown:
Pensavo di aver risolto ma il layout ancora
è distorto.

Mah...

Non esprimo giudizio circa il programma precedente...

Insomma queste cose potreste risparmiarle.
Che utilità ha questo programma?

Bene! Ti giuro che non lo sapevo che
bastasse un semplice ClrScr per applicare lo
sfondo a tutta la finestra...
Ho imparato una nuova cosa oggi!

Ehehe mi fa piacere!

scusami se non sono intelligente e utile come te,scusami se ho imparato ad usare il computer da solo e scusami se la mia voglia di imparare offende la tua mirabile intelligenza adamantina...