Como pintar un triangulo en Pascal llamando a dos procedimientos.

Buenas a ver si alguien me puede ayudar a desarrollar el siguiente programa, que dice lo siguiente:

El triángulo tiene que ser una sucesión de líneas cuya longitud se va incrementando, desde 1 hasta la altura del triángulo.
Deberá codificar un procedimiento de nombre triangulo, que recibe como parámetros la altura del triángulo y el carácter que formará el triángulo. Este procedimiento deberá usar el procedimiento datos, para pintar cada una de las líneas del triángulo. Fíjese que el número de veces que se llama al procedimiento que pinta la línea es igual a la altura del triángulo, y que en la primera invocación, la línea tiene longitud 1 y en la última, la longitud es igual a la altura del triángulo.
En cuanto al programa principal deberá solicitar la altura y el carácter e invocar a triangulo.

Gracias de antemano.