Algoritmos y Programación en Pascal

15.4. Mezcla y ordenación de archivos secuenciales 325
while not EoF(aux1) and not EoF(aux2) do
if aux1^ < aux2^ then begin
arch^:= aux1^;
Put(arch);
Get(aux1)
end {if}
else begin
arch^:= aux2^;
Put(arch);
Get(aux2)
end; {else}
while not EoF(aux1) do begin
{Se copia en arch el resto de aux1, si es necesario}
arch^:= aux1^;
Put(arch);
Get(aux1)
end; {while}
while not EoF(aux2) do begin
{Se copia en arch el resto de aux2, en caso necesario}
arch^:= aux2^;
Put(arch);
Get(aux2)
end; {while}
Close(arch);
Close(aux1);
Close(aux2)
end; {Mezcla}
Como puede apreciarse el procedimientoMezcla que se propone utiliza el cursor
de archivo, lo que no está permitido en Turbo Pascal (véase el apartado B.9).
Para poder utilizar dicho procedimiento en Turbo Pascal hay que modificarlo,
utilizando en su lugar el procedimiento Mezcla que se detalla seguidamente.
El nuevo procedimiento Mezcla dispone, a su vez, de dos procedimientos
anidados: el primero, llamado LeerElemDetectandoFin, comprueba si se ha
alcanzado el final del archivo, y en caso contrario lee una componente del archivo.
El segundo, PasarElemDetectando, escribe una componente dada en el archivo
de destino, y utiliza el procedimiento LeerElemDetectandoFin para obtener
una nueva componente. A continuación se muestra el procedimiento Mezcla
modificado:
procedure Mezcla(var aux1, aux2, arch: tArchivo);
{Efecto: arch := mezcla ordenada de aux1 y aux2}
var
c1,c2: tComponente;
finArch1, finArch2: boolean;