Pascal/Turbo Pascal - Ordenar Datos dentro de un archivo de texto AYUDA

{Ordenacion de un archivo sobre el mismo}

type

   regprue = record

         nume : integer;

         nombre Ñ string[80];

         end;

 var;

 pru : array[1..2] of regprue;

  f : file of regprue;

  archivo : string;

procedure ordenar;

  var

    hl, il, len : longint;

    tempo : regprue;

  begin

      assign(f,archivo);

   {$I-} reset(f); {$I+}

     if ioresult <> 0 then

     begin

        writeln('Archivo <', archivo, ' > no Encontrado');

        halt(1);

       end

     else

         begin

            len := filesize(f) - 1;

            for il := 0 to len do

            begin

              seek(f,il);

              read(f,pru[1]);

              for hl := len downto il do

              begin

                 seek(f,hl);

                 read(f,pru[2]);

                 if pru[1].nume > pru[2].nume then

                 begin

                     tempo.nume := pru[1].nume;

                     tempo.nombre := pru[1].nombre;

                     pru[1].nume := pru[2].nume;

                     pru[1].nombre := pru[2].nombre;

                     pru[2].nume := tempo.nume;

                     pru[2].nombre := tempo.nombre;

                     seek(f,il);

                     write(f,pru[1]);

                     seek(f,hl);

                     write(f,pru[2]);

                 end;

              end;

            end;

            close(f);

       end;

  end;