Pascal/Turbo Pascal - Favor ayudar urgente con un programa!!!

son las 6:40 PM día lunes 5

Tengo que hacer este programa con arreglo:

-Llenar un arreglo unidimensional con 20 nºs aleatorios entre [0 y 100], mostrar arreglo en pantalla.
-crear una funcion que busque el mayor y el menor, y entregue sus posiciones.
-crear una funcion que calcule el promedio y diga cuantos están en el promedio, cuantos están bajo el promedio y cuantos sobre este.

saludos, y es URGENTE!!!!

Para generar numeros aleatorios con la funcion random los tienes y randomize para cambiar la semilla y que sean diferentes cada vez.
Para los otros con un par de variables auxiliares para almacenar mayor o menor y posicion recorriendo desde 1 hasta 20 lo tienes.
Y para la ultima te recomiendo que te crees una funcion que te devuelva la media de los numeros almacenados.
Un saludo