Pascal/Turbo Pascal - Ayuda please!!!

Ola tengo otro problema con mi código, y esque no se muy bien que le pasa, pero no me compila...
tiene que ser un error de tipo o algo así, pero no se como solucionarlo, me podeis ayudar?? muxas gracias, aqui os dejo el codigo:

PROGRAM Practica8;
CONST
N = 2;
INI = 1;
FIN = 30;
TYPE
TRango = INI..FIN;
TTope = pred(INI)..succ(FIN);
TNombre = string[FIN];
TEdad = integer;
TCurso = string[N];
TAlumno = record
nombre: TNombre;
Edad: TEdad;
Curso: TCurso;
END;
TAgenda = array [INI..FIN] OF TAlumno;
VAR
tope: TTope;
alumno: TAlumno;
agenda: TAgenda;
op: integer;
PROCEDURE LeerAlumno (VAR alumno: TAlumno);
BEGIN
with alumno do begin
write('Nombre: ');
readln(nombre);
writeln('Edad: ');
readln(Edad);
writeln('Curso: ');
readln(Curso);
end;
END;
PROCEDURE Menu (VAR op: integer);
VAR
n: integer;
BEGIN
n := 0;
REPEAT
writeln('Elija una opcion');
writeln('1 - Anadir alumno');
writeln('2 - Mostrar la media de edad de los alumnos');
writeln('3 - Mostrar los alumnos ordenados alfabeticamente');
writeln('4 - Mostrar los alumnos ordenados por curso y alfabeticamente');
writeln('5 - Salir del programa');
readln(op);
WHILE op = 1 DO
n := n+1;
UNTIL (op>=1) AND (op<=5)
END;
PROCEDURE MediaEdad;
VAR
suma: integer;
media: real;
i: 1..FIN;
n: integer;
edad: TEdad;
BEGIN
suma:= 0;
for i:= 1 to FIN do
suma:= suma + (agenda[i].edad);
writeln(suma);
media:= suma/n;
writeln('La media de Edad es: ');
END;
PROCEDURE NuevoAlumno (VAR agenda: TAgenda; VAR tope: TTope; alumno: TAlumno);
VAR
i,j: TRango;
terminar: boolean;
BEGIN
tope := tope+1;
IF (tope = INI) THEN
agenda[tope] := alumno
ELSE
BEGIN
terminar := FALSE;
j := INI;
REPEAT
--> IF (agenda[j,1] > alumno[1]) THEN
BEGIN
FOR i := tope DOWNTO (j+1) DO
agenda[i] := agenda[i-1];
terminar := TRUE;
END
ELSE
j := j+1;
UNTIL (terminar) OR (j = tope);
agneda[j] := alumno;
END
END;
begin
end.

A partir de la linea que tiene una flecha no me compila, en esa misma linea me da un error alguien me puede decir pk y como arreglarlo?? muxas gracias

Agenda es un array unidimensional, no bidimensional.

Ya, eso si lo solucione, pero esk en alumno[1] me da un error...y no se como lo puedo arreglar....
Gracias.

Alumno no es un array, es un registro.