ALGORITMOS DE BÚSQUEDA Y ORDENACIÓN

ALGORITMO DE DIVISIÓN,
IMPLEMENTACIÓN EN PASCAL
if cambio then
write(aux1,valoractual)
else begin
write(aux2,valoractual);
esvacio2:=false
end; {else}
valoranterior:=valoractual;
end; {while}
close(arch);
close(aux1);
close(aux2)
end; {Division}