Dadas 10 calificaciones de alumnos muestre el promedio del grupo

pascal:
{-Victor De la Rocha}
{-Algoritmia@groups.msn.com}
{-www.myalgorithm.com}
uses
 crt;
const
 max=100;
type
 vector=array [1..max] of real;
var
 arreglo:vector;
 alumnos,cont1,cont2,materias:integer;
 temp,suma:real;
begin
 ClrScr;
 Write('Alumnos: ');Readln(alumnos);
 Write('Asignaturas: ');Readln(materias);
 Writeln;
 ClrScr;delay(800);

 for cont1:=1 to alumnos do
  begin
   writeln('Alumno ',cont1);
    for cont2:=1 to materias do
     begin
      write('Calificacion ',cont2,': ');Readln(temp);
      suma:=suma+temp;
     end;{suma}
    arreglo[cont1]:=suma/materias;{promedio insertado en el vector}
   writeln;
  end;{alumnos}

  suma:=0;
  for cont1:=1 to materias do
   begin
    suma:=arreglo[cont1]+suma;
   end;

   Write('Promedio grupal: ',suma/materias:0:2);
 ReadKey;
end.
Alulmnos: 7 Alumno 1: Calificación 1: 10 Calificación 2: 10 Calificación 3: 10 Calificación 4: 9 Calificación 5: 8 Calificación 6: 10 Calificación 7: 9 Calificación 8: 8 Calificación 9: 10 Calificación 10: 8 Alumno 2: Calificación 1: 10 Calificación 2: 9 Calificación 3: 8 Calificación 4: 10 Calificación 5: 8 Calificación 6: 9 Calificación 7: 10 Calificación 8: 10 Calificación 9: 10 Calificación 10: 8 Alumno 3: Calificación 1: 10 Calificación 2: 9 Calificación 3: 8 Calificación 4: 10 Calificación 5: 10 Calificación 6: 8 Calificación 7: 10 Calificación 8: 10 Calificación 9: 8 Calificación 10: 9 Alumno 4: Calificación 1: 10 Calificación 2: 9 Calificación 3: 10 Calificación 4: 8 Calificación 5: 9 Calificación 6: 10 Calificación 7: 9 Calificación 8: 10 Calificación 9: 8 Calificación 10: 10 Alumno 5: Calificación 1: 8 Calificación 2: 10 Calificación 3: 10 Calificación 4: 8 Calificación 5: 9 Calificación 6: 8 Calificación 7: 10 Calificación 8: 10 Calificación 9: 10 Calificación 10: 9 Alumno 6: Calificación 1: 10 Calificación 2: 9 Calificación 3: 9 Calificación 4: 10 Calificación 5: 9 Calificación 6: 9 Calificación 7: 9 Calificación 8: 9 Calificación 9: 9 Calificación 10: 10 Alumno 7: Calificación 1: 10 Calificación 2: 8 Calificación 3: 8 Calificación 4: 8 Calificación 5: 8 Calificación 6: 10 Calificación 7: 8 Calificación 8: 10 Calificación 9: 8 Calificación 10: 10 Promedio del grupo: 9.17142857143
¿Ya le viste algún error? Dejanos tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress elimina los tags HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios.

Otro punto antes de comentar, Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

De esta manera el código sale coloreado.

Otro punto importante para muchos que sienten que se les ignora: Todos los comentarios los reviso y en su debido momento los apruebo, pero ojo con el último párrafo.

Para poner los símbolos de las librerías sin que desaparezcan, debes escribir los símbolos de mayor > y menor qué < con su entidad HTML correspondiente, así como el símbolo de &

Mis Algoritmos se reserva el derecho de alterar, publicar o no los comentarios así como cambiar estas reglas de uso.

Si estas de acuerdo, adelante puedes comentar :)

P.D. No le hago tareas a nadie, mejor hagan la mía :P