problema con pascal (arrays)

[claryortiz]

necesito ayuda para arreglar un programa en pascal ayuda por favor es sobre arreglos y registros espero me puedan ayudar
Hola espero que esten bien,las indicaciones son: Escribir un programa en Pascal que almacene en un array de registros los nombres de los alumnos, sus notas parciales y finales. Hallar la nota media y mostrar un mensaje de APTO si el alumno supera o iguala la calificación de 5 o NO APTO si no lo alcanza. Hacerlo para un número de 5 alumnos.
el problema es que necesito que este programa me permite ingresar 3 calfificaciones y no 2 ¿como le hago para poder ingresar 3 calficaciones?

Código (pascal) [Seleccionar] Expandir

Program EJ009(Input, Output);
Uses Crt;
Const numalumnos = 5;
Type tiponotas = record
nombre: String;
parcial, final: real
end;
notasclase = array [1..Numalumnos] of tiponotas;
Var I3: notasclase;
nota1, nota2: real;
alumno: String;
index: integer;
Begin
ClrScr;
for index := 1 to numalumnos do
begin
write( Nombre de alumno( ,index, ):  );
readln(alumno);
write( Nota del examen parcial:  );
readln(nota1);
write( Nota del examen final:  );
readln(nota2);
writeln;
with i3[index] do
begin
nombre := alumno;
parcial := nota1;
final := nota2
end
end;
ClrScr;
writeln( NOMBRE  :30, Parcial :10, Final :10, Media :10,  CALIFICACION );
for index := 1 to 75 do write( - );
writeln;
for index := 1 to numalumnos do
with i3[index] do
begin
{Escribir la lista con los resultados.}
nota1 := (parcial+final)/2;
{Se calcula la media.}
write(nombre:30,parcial:10:2,final:10:2);
write(nota1:10:2);
{Si la nota media es superior a 5, el alumno est aprobado:}
if nota1 >= 5 then writeln(  *** APTO ***  )
else writeln(  NO APTO )
end;
readkey
end.

· Los códigos deben ir en etiquetas GeSHi
· No se debe escribir en mayúsculas
>aquí las reglas del foro
-Engel Lex