Pascal - cambio colore sfondo

perchè se cambio il colore dello sfondo la prima volta che eseguo lo sfondo resta tutto nero a parte dei caratteri che ho scritto? mi spiego meglio: ho fatto una procedura così:

procedure prepara_campo;
var i,d :integer;
begin
 TextBackground(Green);
 TextColor(Black);
 for i:= 1 to 80 do
  begin
  gotoxy(i,1);
  write(chr(219));
  end;
 for i:=2 to 24 do
  begin
   gotoxy(1,i);
   write(chr(219));
   gotoxy(80,i);
   write(chr(219));
  end;
 line_vert(30,5,10);
 line_vert(36,5,10);
 line_orr(8,23,20);
 line_orr(12,23,20);
 gotoxy(36,12);
 write(chr(206));
 gotoxy(30,12);
 write(chr(206));
 gotoxy(36,8);
 write(chr(206));
 gotoxy(30,8);
 write(chr(206));
 for i:= 1 to 3 do
 begin
 gotoxy(23+i*6,7);
 write(i);
 end;
 for i:= 1 to 3 do
 begin
 gotoxy(23+i*6,11);
 write(i+3);
 end;
 for i:= 1 to 3 do
 begin
 gotoxy(23+i*6,15);
 write(i+6);
 end;
end;

che mi coloraw di verde lo sfondo e mi fa la griglia del tris.... però la prima volta che lo eseguo mi si colora solo lo spazio vicino alla griglia...come mai?

Per colorare lo sfondo dopo averne impostato un colore devi usare un clrscr.
Ti consigliereri, inoltre, per creare la cornice, di usare la procedura window, che limita l'area su cui si lavora quando si utilizza una funzione della unit crt.

Suggerirei :

procedure  prepara_campo;
var i,d :integer;
begin
clrscr;
TextBackground(Green);
TextColor(Black);
window(2,2,79,24);
clrscr;
line_vert(30,5,10);
line_vert(36,5,10);
line_orr(8,23,20);
line_orr(12,23,20);
gotoxy(36,12);
write(chr(206));
gotoxy(30,12);
write(chr(206));
gotoxy(36,8);
write(chr(206));
gotoxy(30,8);
write(chr(206));
for i:= 1 to 3 do
begin
gotoxy(23+i*6,7);
write(i);
end;
for i:= 1 to 3 do
begin
gotoxy(23+i*6,11);
write(i+3);
end;
for i:= 1 to 3 do
begin
gotoxy(23+i*6,15);
write(i+6);
end;
end;

Ok ??

quindi in pratica window e come se aprisse una finestra all'interno dello schermo?

se è così quando uso un gotoxy(1,1) non considera l'intera area dello schermo, ma solo quella definita in window?

sì, esatto.

Non l'ho fatto ma dovresti cambiare i parametri dei Gotoxy che hai usato.

quando ho un pò di tempo provo...Grazie mille per il consiglio!!

Prego !!