Pascal/Turbo Pascal - ayuda con color de texto y background

Hola
apenas estoy comenzando en el mundo de la programacion y necesito que me ayuden con las instrucciones de color del texto y fondo , utilizo el T.P. for windows 1.5
se que se necesita la unidad "winprocs" pero no se como se utiliza.
de antemano muchas gracias por intentar ayudarme y por regalarme un poco de su tiempo.

Mira, no he manejado es versión, pero te puedo dar una pista, en TP7 para DOS utilizas
"TEXTCOLOR(color);" para cambiar color al texto y
"TEXTBACKGROUND(color);" para el fondo.
los colores aquí son estos:
0 NEGRO 8 GRIS
1 AZUL 9 AZUL BRILLANTE
2 VERDE 10 VERDE BRILLANTE
3 TURQUESA 11 CIAN
4 ROJO 12 ROJO BRILLANTE
5 VIOLETA 13 MAGENTA
6 OCRE 14 AMARILLO
7 PLATA 15 BLANCO

Suerte y espero que te sirva.

buenas noche necesito un favor, sabes me mandaron correr un programa de opciones, pero solo m corre para el menu que es la opcion 1 y las otras no m corren como hago??? y como hago para cambiarle el color al texto , gracias se lo agradesco de verdad gracias:::::.............. ese es el programa..
+
Ejemplo: Administracion de Archivos de Usuario
PROGRAM AdministradorUsuarios (input, ArchUsuarios, output);

TYPE
RegistroUsuario = RECORD
NumIdentif : integer;
SistemaComp : char;
LimiteRecursos,
UsadosHastaHoy : integer
END;
ArchDeRegistroUsuarios = FILE OF RegistroUsuario;

VAR
Opcion : integer;
Usuario : RegistroUsuario;
ArchUsuarios : ArchDeRegistroUsuarios;

PROCEDURE MostrarMenu;
BEGIN
writeln('1- Mostrar Menu');
writeln('2- Crear un Archivo de Usuarios');
writeln('3- Agregar Usuarios a un Archivo');
writeln('4- Imprimir un Listado de Usuarios')
END; { MostrarMenu }

PROCEDURE ImprimirArchivoUsuarios(VAR ArchUsuarios : ArchDeRegistroUsuarios);
VAR
Usuario : RegistroUsuario;

BEGIN
reset(ArchUsuarios);
writeln('**********************************');
writeln('Num. identif. Sistema Lim. recurs. Recur. usados');
writeln;
writeln('============= ======= ============ =============');
WHILE NOT eof(ArchUsuarios) DO
BEGIN
read(ArchUsuarios, Usuario);
writeln(Usuario.NumIdentif:12, Usuario.SistemaComp:7,
Usuario.LimiteRecursos:10, Usuario.UsadosHastaHoy:12)
END;
END; { ImprimirArchivoUsuarios }

PROCEDURE CrearArchivoUsuarios(VAR ArchUsuarios : ArchDeRegistroUsuarios);
BEGIN
rewrite(ArchUsuarios)
END; { CrearArchivoUsuarios }

PROCEDURE CopiarArchivos(VAR DelArchivo, AlArchivo : ArchDeRegistroUsuarios);
VAR
Usuario : RegistroUsuario;

BEGIN
WHILE NOT eof(DelArchivo) DO
BEGIN
read(DelArchivo, Usuario);
write(AlArchivo, Usuario)
END;
END; { CopiarArchivos }

PROCEDURE AgregarUsuarios(VAR ArchUsuarios : ArchDeRegistroUsuarios);
VAR
Usuario : RegistroUsuario;
ArchTemp : ArchDeRegistroUsuarios;

BEGIN
reset(ArchUsuarios);
rewrite(ArchTemp);
CopiarArchivos(ArchUsuarios, ArchTemp);
writeln;
write('Numero de identificacion del usuario (0 para parar)? ');
readln(Usuario.NumIdentif);
WHILE Usuario.NumIdentif > 0 DO
BEGIN
write('Sistema (A,B,C,D), limite recursos y ');
write('los usados hasta la fecha? ');
readln(Usuario.SistemaComp, Usuario.LimiteRecursos,
Usuario.UsadosHastaHoy);
write(ArchTemp, Usuario);
writeln;
write('Numero de identificacion del usuario (0 para parar)? ');
readln(Usuario.NumIdentif)
END;
reset(ArchTemp);
rewrite(ArchUsuarios);
CopiarArchivos(ArchTemp, ArchUsuarios)
END; { AgregarUsuarios }

BEGIN
writeln;
MostrarMenu;
writeln;
write('Introduzca una opcion: ');
readln(Opcion);
WHILE Opcion <> 0 DO
BEGIN
IF Opcion = 1 THEN
MostrarMenu
ELSE IF Opcion = 2 THEN
CrearArchivoUsuarios(ArchUsuarios)
ELSE IF Opcion = 3 THEN
AgregarUsuarios(ArchUsuarios)
ELSE IF Opcion = 4 THEN
ImprimirArchivoUsuarios(ArchUsuarios)
ELSE
writeln('***Opcion incorrecta***');
writeln;
write('Introduzca una opcion: ');
readln(Opcion)
END;
END.

amigo nesecito saver esto para el sev-pascal para ganarme unos puntitos en mi clase de informatica

Ah, se me olvidaba, para utilizar unidades, tienes que utilizar la clausula: USES y la lista de unidades extras justo al inicio del programa.