Мне надо в FREE PASCAL сделать так что бы весь текст был белый (автоматический) и только...

Потключаем модуль: $user\\ Crt;\\$

Дальше в операторных скобках пишем:

$begin\\ \\ TextBackGround(y); \\ \\ ClrScr;\\ \\ TextColor(x) \\ end.\\$

x,y - номер цвета.

TextBackGround(y) - это цвет экрана;

ClrScr - это процедура очистки экрана(далее будет очистка производится тем цветом, который был указан в TextBackGround)

TextColor(x) - это процедура установки цвета для последующего вывода символов.