Fórum Ordenar arquivo texto sem array e arquivo auxiliar #333223

//Considere as seguintes declarações:
const
   C_Tam_Chave = 8;
   C_Tam_Desc  = 20;
type
   T_Chave = String[C_Tam_Chave];
   T_Info = record
              Chave: T_Chave;
              Desc: String[C_Tam_Desc];  
              Preco, Quant: Real;
            end;
   T_Arq_Infos = file of T_Info;

procedure Mostrar(Var Arq: T_Arq_Infos);
begin
   {Operação que mostra no vídeo todo o conteúdo do arquivo Arq.}
end;

procedure Ordena(Var Arq: T_Arq_Infos);
begin
   {Operação que ordena, em ordem crescente do campo Chave, o conteúdo do arquivo Arq.}
end;

{Faça um programa completo, considerando as declarações acima, que: conecte um arquivo do tipo T_Arq_Infos, mostre seu conteúdo original, possivelmente desordenado, na tela, ordene o conteúdo do arquivo, considerando o campo Chave e reescreva o conteúdo na tela, agora ordenado. Seu programa não pode utilizar vetor(es) ou arquivo(s) auxiliar(es).}