Pascal/Turbo Pascal - Ordenar listas simples

Saludos, si alguien me puede ayudar con esto se lo agradeceria, no se mucho sobre pascal, por lo que tal vez esta pregunta sea un poco tonta, pero no se como ordenar una lista de estudiantes por codigo de estudiante o que al momento de ingresar el codigo de estudiante se ordene.

MUCHAS GRACIAS A TODOS!!!
adjunto el procedimiento de insercion.

Procedure inserta (var lista:tipopuntero; nom:string);
Var
nuevo:tipopuntero;
aux:tipopuntero;
begin
new(nuevo);
nuevo^.nom:=nom;
nuevo^.sig:=nil;
nuevo^.ant:=nil;

If listavacia(lista) then
lista:=nuevo
else
begin
if (lista^.sig=nil) then
lista^.sig:=nuevo
else
begin
aux:=lista;
while (aux^.sig <> nil ) do
aux:=aux^.sig;
aux^.sig:=nuevo;
nuevo^.ant:=aux;
end;
end;
end;