Ejercicio 20 (Arrays)

Plantee e implemente un programa en PASCAL que permita almacenar en memoria el nombre y las notas de una asignatura de una clase de 15 alumnos. Muestre por pantalla el nombre y nota de los alumnos que han obtenido la peor y la mejor calificación.


PROGRAM registro(input,output);
TYPE
    Tficha = RECORD
    nombre:string(15);
    nota:integer;
    end;
    TAFicha = Array[1..15] OF Tficha;
VAR
    Fichas : TAFicha;
    a:integer;
    I:integer;
    mejor,peor:integer;
BEGIN
     FOR I:=1 TO 15 DO
         BEGIN
         write('Introduzca el nombre del alumno:');
         readln(Fichas[I].nombre);
         write('Introduzca la nota del alumno:');
         readln(Fichas[I].nota);
         END;
      mejor:=Fichas[1].nota;
      FOR I:=1 TO 15 DO
          BEGIN
          IF (Fichas[I].nota > Fichas[mejor].nota) THEN mejor:=I;
          IF (Fichas[I].nota < Fichas[peor].nota) THEN peor:=I;
          END;
      writeln('El mejor alumno ha sido ',Fichas[mejor].nombre,' cuya nota es: ',Fichas[mejor].nota);
      writeln('El peor alumno ha sido ',Fichas[peor].nombre,' cuya nota es: ',Fichas[peor].nota);
END.