Hola que tal^^. mira este programa no esta muy dificil, solo debes hacer los siguiente ;
esto será tan solo un ejemplo, ya que no sé cual es el numero de cursos, usaré 2 cursos, si deseas más solo editalo^^.
program notas;
uses crt ;
var
notas: array[1..10,1..3] of integer ; {array[numero_estudiantes,numero_de_cursos]}
nombres: array[1..10] of string ; {para guardar los nombres}
x, y : integer ;
opcion : integer ;
nombre :string ; {para mostrar por nombre} ;
promedio :real ;
curso: integer ;
begin
clrscr ;
for x := 1 to 10 do
begin
clrscr ;
... ver debate
