Pascal/Turbo Pascal - porfavor mi maesro me evaluara con un programa necesito su ayuda

{Mira a ver si esto te ayuda}

program alumnos;

 uses

   crt;

 const

    alunum = 10;

 type

   alumno = record

        alum : string[80];

      califi : array[1..3] of real;

   end;

 var

   datos : array[1..alunum] of alumno;

   i : integer;

  procedure entradas;

  begin

     i := 1;

    while i < alunum + 1 do

    begin

       write('   Entre Nombre Alumno  : ');

       readln(datos[i].alum);

       write('  Entre Calificacion 1. : ');

       readln(datos[i].califi[1]);

       write('  Entre Calificacion 2. : ');

       readln(datos[i].califi[2]);

       write('  Entre Calificacion 3. : ');

       readln(datos[i].califi[3]);

       i := i + 1;

    end;

  end;

  function promedio : real;

  var

     h, t : integer;

     q, pro : real;

  begin

     q := 0.0;

     pro := 0.0;

     for t := 1 to alunum do

     begin

        for h := 1 to 3 do

        begin

        q := q + datos[t].califi[h];

        end;

        pro := pro + (q / 3);

     end;

       promedio := (pro / 10);

  end;

  begin

      clrscr;

      entradas;

      for i := 1 to alunum do

      writeln(datos[i].alum);

      writeln;

      writeln('  El Promedio Es : ',promedio:0:2);

      readkey;

  end.