[ Foro de Pascal ]

Que tipo de ordenamiento es?

hola, me podrian decir que tipo de ordenamiento es esto.
procedure orden_nombre;
 var
   inv, aux : productos;
   i, t,d: longint;
 begin
    assign(f,elarchivo);
 {$I-} reset(f); {$I+}
  if ioresult <> 0 then
  begin
      writeln('  Error de archivo pulse [Enter]');
      readln;
      exit;
  end
else
   begin {empieza el método de ordenamiento}
    for i := 0 to filesize(f) - 1 do
    begin
        seek(f,i);
        read(f,producto);
        for t := filesize(f) - 1 downto i + 1 do
        begin
           seek(f,t);
           read(f,inv);
           if producto.nombre > inv.Nombre then
           begin
              aux := producto;
              producto := inv;
              inv := aux;
              seek(f,i);
              write(f,producto);
              seek(f,t);
              write(f,inv);
           end;
        end;
     end;{fin del metodo de orden...}
     end;
   writeln('*** Nombre por orden alfabetico ***');
      writeln;
      for d := 0 to filesize(f) - 1 do
      begin
         seek(f,d);
         read(f,producto);
         writeln('*******************************');
         writeln('  Nombre = ',producto.nombre);
      close(f);
      readln;
 end;

esto solo es una parte de mi código original. gracias.