Pascal/Turbo Pascal - ordenar

buenas amigo necesito una ayuda necesito ordenar un arreglo de vendedores por lo menos tengo esto

yo ingreso que el

vendedor 1 vendio 5
vendedor 2 vendio 10

cuando se ordena me parece esto

vendedor 1 vendio 10
vendedor 2 vendio 5

lo que se quiere es que lo ordene de la siguiente manera

vendedor 2 vendio 10
vendedor 1 vendio 5

lo que quiero es que tanto como el indice y el valor ingresado se ordenen. lo que tengo es esto.


procedure intercambio(var a1,b:integer);
var
aux:integer;
begin
aux:=a1;
a1:=b;
b:=aux;
end;

procedure burbuja(var a:arreglo;n:integer);
var
i,j:integer;
begin
for i:=1 to n-1 do
for j:=1 to n-i do
if (a[j]< a[j+1]) then
intercambio(a[i],a[j+1]);

end;

necesito de su ayuda

Puedes pasar mas información de como defines esos arreglos.