Pascal/Turbo Pascal - Ayuda con un ejercicio

Muy buenas!!! por favor a ver si alguien puede echarme una mano!!!!!

1. Contenido de la práctica
Realizar un programa que escriba un triángulo de números entre el 1 y el
9. El nivel del triángulo se introducirá como dato (1<=Nivel<=9). Se empezará a
escribir en el centro de la pantalla. Habrá tantas líneas de números como
indique el nivel. Todas las líneas comenzarán en 1 y estarán formadas por una
secuencia de números en orden ascendente hasta alcanzar la altura de dicha
línea, decreciendo posteriormente hasta 1. Cada línea de números se escribirá
en un color (ROJO, VERDE, AZUL) elegido al azar, contabilizando el número
de líneas escritas en los distintos colores.
Para cambiar el color de las líneas se utiliza la función textcolor(color),
donde color será un entero(10:verde,11:azul,12:rojo,15:blanco)
Para generar números aleatorios, deberá utilizarse la función especial
interna random(x), que genera un número aleatorio en el intervalo [0,x), y
donde el argumento x y el valor devuelto son de tipo entero. Antes de utilizar
esta función en el programa, es necesario invocar a randomize que inicializa el
generador de números aleatorios.