Algoritmo para calcular media de calificaciones

Me han pedido un algoritmo con el siguiente enunciado:
Se dispone de las notas de 40 alumnos. Cada uno de ellos puede tener u o varias notas.
Escribir un algoritmo que perimita obtener la media de cada alumno y la media de la clase a partir de la entrada de las notas pr teclado.
Yo lo he desarrolado y quisiera saber si está bien:
Algoritmo Media
Tipo
array [1..40, 1...M] de real: Alumnos
var
Alumnos: A
entero: i,j
real: suma, media
inicio
suma = 0
 desde i = 1 hasta 40 hacer
  desde j = 1 hasta M hacer
   escribir('Ingrese nota del alumno', i, 'de la materia', j)
  fin_desde
        fin_desde
 desde i = 1 hasta 40 hacer
      desde j = 1 hasta M hacer
           suma = suma + A[i,j]
           media = suma / M
          escribir('Alumno', i, 'Media', media)
  f   in desde
 fin desde
 desde i = 1 hasta 40 hacer
      desde j = 1 hasta M hacer
         suma = suma + A[i,j]
     Fin desde
Fin desde
 media = suma / i
Escribir('La media de la clase es:', media)
Fin