Pascal/Turbo Pascal - Diseñar un algoritmo de promedio de notas

uses crt;

const

	numAlumnos = 10; {asumimos 10 alumnos}

var

	notas:array[1..numAlumnos] of byte;

	cont,a,b,i,mayor,menor:integer;

	suma,prom:real;

begin

	clrscr;

	cont:=0;

	{pedir notas de los alumnos}

	for i:=1 to numAlumnos do begin

		write('Ingrese nota # ',i,': ');

		readln(notas[i]);

	end;

	{promedio}

	suma:=0; prom:=0;

	for i:=1 to numAlumnos do

		suma:=suma + notas[i];

	prom:= suma / numAlumnos;

	writeln;

	writeln('El promedio de las notas es ',prom:4:2);

	{notas maxima y minima}

	mayor:=0; menor:=notas[1];

	for i:=1 to numAlumnos do begin

		if notas[i] > mayor then

			mayor:=notas[i];

		if notas[i] < menor then

			menor:=notas[i];

	end;

	writeln('Nota maxima = ',mayor);

	writeln('Nota minima = ',menor);

	{Cantidad de exámenes cuya nota se encuentre entre un intervalo [A, B]

	 determinado por el usuario}

	 writeln;

	 writeln('Ingrese un intervalo entre 1-10');

	 readln(a,b);

	 for i:=1 to numAlumnos do begin

		if (notas[i] >= a) and (notas[i] <= b) then

			inc(cont);

	end;

	writeln; writeln('Cantidad de notas en el intervalo ',cont);

end.