Pascal/Turbo Pascal - colores en pascal

hola tengo un problema nececito poner color de fondo y a ttexto tambien tengo esto pero me dice error 3

aqui dejo el programita haci me pueden decir mi error gracias

program hol;
uses wincrt;
var
n : string;
Tipo : Byte;
begin
ClrScr;
textbackgroun (1);
writeln;
textcolor (9);
gotoxy (35,5);
writeln ( 'hol' );
repeat
until keypressed;
writeln ( 'Quien eres?' );
readln ( n );
writeln ( 'Hola, ', n );
writeln ( 'mi nombre es este' );
writeln ( '====================================================================');
writeln ( ' hol ');
writeln ( '====================================================================');
repeat
until keypressed;
while true do write ('jejeje caiste ');
end.

Eh, bueno, el error 3 es "identificador desconocido", y creo que se debe a esta instrucción:
textbackgroun (1);
debería ser
textbackground(1);

Ah, y tienes un ciclo infinito aquí:
while true do write ('jejeje caiste ');

como puedo hacer q no sea infinito??

el codigo para el colores

textbackgroud o bien setBKcolor

hola quiero informacion sobre los colores en pascal

quiero hacer un buen programado para hacer alguien en la vida