Pascal/Turbo Pascal - me podrian ayudar con una lista de alumnos por edades?

Uses CRT;

Const

  TOPE = 3;

Type

  TAlumnos = Record

    NOMBRE : String;

    EDAD   : Integer;

  End;

Var

  ALUMNOS : Array [1..TOPE] OF TAlumnos;

  I, J, AUX : INTEGER;

  regaux:Talumnos;

Begin

  For i :=1 to tope do

    begin

      CLRSCR;

      Gotoxy(10,10); Writeln('Nombre: ');

      gotoxy(19,10); Readln(ALUMNOS[I].NOMBRE);

      gotoxy(10,12); Writeln('EDAD: ');

      gotoxy(16,12); readln(alumnos[i].edad);

    end;

    {Ordenamiento}

    For i :=1 to TOPE-1 DO

      FOR J:=I+1 TO TOPE DO

        BEGIN

          IF ALUMNOS[I].EDAD > ALUMNOS[J].EDAD then

            begin

               regAux:=Alumnos[i];

               alumnos[i]:=alumnos[j];

               alumnos[j]:=regaux;

            end;

        END;

   {presentaci¢n}

     for i:=1 to TOPE DO

       WRITELN(ALUMNOS[I].NOMBRE,' ',ALUMNOS[I].EDAD);

     READLN;

end.