procedure ordenamiento();
 var
  I:Integer;
  begin
   clrscr;
   for i:= 1 to 6 do
     begin
       seek (adi,0);                   // me posiciono al principio del registro
       while not eof (adi) do
         begin
           read(adi,radi);  // archivo dias y horarios
             if radi.dia=i
               then
                 begin
                   seek (aux_adi,filesize(aux_adi)); // se posiciona normalmente por día pero no por hora
                   write (aux_adi,radi);
                 end;
         end;
     end;
end;
procedure diahora();
 var
 diia:String;
 ant,J:Integer;
  begin
    ordenamiento();
    clrscr;
    Writeln('--LISTADO--');
    Seek(agi,0);
    Read(agi,ragi);
    Seek(aux_adi,0);
    Writeln(' Nombre:', ragi.nombre, '        Direccion:',ragi.direccion);
    Writeln('Valor Cuota:',ragi.valor_cuota:6:2,'    Valor Nutricionista:',ragi.valor_nutricionista:6:2,'   Valor Personal Trainer:',ragi.valor_personal_trainer:6:2);
    Writeln('');
        while not eof(aux_adi) do
          begin
            Read(aux_adi,radi);
            case radi.dia of
            1:diia:='Lunes';
            2:diia:='Martes';
            3:diia:='Miercoles';
            4:diia:='Jueves';
            5:diia:='Viernes';
            6:diia:='Sabado';
            end;
            Writeln('En el dia ', diia,' se encuentran las siguientes actividades');
            ant:=radi.dia;
            while radi.dia=ant do
              begin
                   for J:=00 to 24 do
                     begin
                       if J=(StrToInt((radi.hora[1]+radi.hora[2]))) then
                        begin
                             Seek(aac,radi.codigo_act);
                              Read(aac,rac);
                               Writeln('Hora: ', radi.hora,'    Descripcion:',rac.descr_act);
                        end;
                     end;
                   Read(aux_adi,radi);
                   readkey();
              end;
            readkey();
          end;
 Seek(aux_adi,0);
 Truncate(aux_adi);
end;