Pascal/Turbo Pascal - necesito ayuda con este ejercicio de urgencia

Una empresa decide guardar en un arreglo lineal el número de ventas realizadas en un mes por cada vendedor.

{Me comentas poco para poder ayudarte cuantos vendedores son que venden si no medas mas datos mal lo tenemos compañero}

{El arreglo seria}
ventas : array[1..31] of real;
{Esto sirve para un vendedor para el resto tendrías que poner}
ventas : array[1..x,1..31] of real;
{Esto nos daría de 1 a x vendedores 1 a 31 dia}