Pascal/Turbo Pascal - MCD y mcm de un vector

Quiero hacer un programa para calcular el Minimo Comun Múltiplo y el Maximo Comun Divisor de un vector, se como hacerlo entre dos números pero no en un vector con 8 números por ejemplo.