Pascal/Turbo Pascal - Ordenar lista

type

    RangoCodigo =  1..LARGO_CODIGO;

    RangoBR = 0 .. LARGO_CODIGO;

    TipoCodigo = array [RangoCodigo] of char;

    TRegistroNota = record

		       codigo : TipoCodigo;

		       buenos,

		       regulares: RangoBR;

    end;

    THistoria  = record

		    info : array [1..MAXIMO_INTENTOS] of TRegistroNota;

		    tope : 0..MAXIMO_INTENTOS;

    end;

    ListaNotas = ^CeldaNota;

    CeldaNota = record

         codigo    : TipoCodigo;

         buenos    ,

         regulares : RangoBR;

         turno     : 1 .. MAXIMO_INTENTOS;

         siguiente : ListaNotas;

     end;

function ListaOrdenada(historia : THistoria) : ListaNotas;

	function InsertarElemento(historia: THistoria; r: ListaNotas; var i: integer): ListaNotas;

	var

		p,q			: ListaNotas;

		j,limite	: integer;

	begin

		InsertarElemento:=r;

		new(p);

		limite:=historia.tope;

		for j:=1 to limite do

			p^.codigo:=historia.info[i].codigo;

			p^.buenos:=historia.info[i].buenos;

			p^.regulares:=historia.info[i].regulares;

			p^.turno:=i;

			p^.siguiente:=nil;

			inc(i);

				if r = nil then

					r:= p

				else

					begin

						q:= r;

						while q^.siguiente <> nil do

							q:= q^.siguiente;

						q^.siguiente:= p;

					end;

			end;

var

	lista				: ListaNotas;

	i,k,limite		: integer;

begin

	{ aproximacion:= 10 * (buenos + regulares); }

	limite:=historia.tope;

	new(lista);

	if limite = 0 then	{lista vacia}

		lista := nil;

	k:=1;

	for i:=1 to limite do

 		InsertarElemento(historia,lista,k);

		inc(k);

	ListaOrdenada:=lista;

end;