Pascal/Turbo Pascal - necesito ayuda con este programa por favor. Necesito aplicar vector y burbuja

uses crt;

type

	alumnos = record

		nombre:string;

		cedula:string;

		edad:byte;

		sexo:char;

		direccion:string;

	end;

	materias = record

		informatica:byte;

		castellano:byte;

		historia:byte;

		biologia:byte;

		quimica:byte;

	end;

var

	alumno:array[1..5] of alumnos;

	asignaturas:array[1..5] of materias;

	i:byte;

begin

	clrscr;

	for i:=1 to 5 do

	begin

		writeln('Alumno nro: ',i);

		with alumno[i] do

		begin

			write('Nombre: ');readln(nombre);

			write('cedula: ');readln(cedula);

			write('edad: ');readln(edad);

			write('sexo [M] o [F]: ');readln(sexo);

			write('direccion: ');readln(direccion);

		end;

		with asignaturas[i] do begin

			write('Nota informatica: ');readln(informatica);

			write('Nota castellano: ');readln(castellano);

			write('Nota historia:'); readln(historia);

			write('Nota biologia: ');readln(biologia);

			write('Nota quimica: ');readln(quimica);

		end;

	end;

end.