Código
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. }
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009