Como indexar um vetor?

//Veja o exemplo:
for x := 1 to 10 do
for y := 1 to 10 do
if array[x] < array[y] then begin
varaux := array[y];
array[y] := array[x];
array[x] := varaux;
end; {Consiste no seguinte para cada item do vetor você verifica todos os outros, se for menor faz a troca. }