Delphi - Arreglo

Hola!! otra vez yo por aqui,, jeje!! Bueno... mi duda es..... tengo un arreglo el cual contiene numeros del 1 hasta el 50 en forma secuente y sin repeticiones.... Hay alguna manera de revolver estos numeros del arreglo? Ya sea que sea en el mismo arreglo o se cree otro. Espero me ayuden. Gracias

Una forma simple sería:

var ind1,ind2,aux,veces:integer;

begin
randomize; //iniciamos el generador de números al azar
for veces:=1 to 10 do
begin
ind1:=random(50)+1; //obtenemos un ínidce al azar (1..50)
ind2:=random(50)+1; //obtenemos otro índice al azar

//intercambiamos ambos índices
aux:=arreglo[ind1];
arreglo[ind1]:=arreglo[ind2];
arreglo[ind2]:=aux;
end;

Esto se hará 10 veces, pero puede variar todo lo que uno quiera.

Hola!! gracias por ayudarme... pero todavia no resuelve el problema... el problema es que en el arreglo si los revuelve... pero el arreglo se duplica.... Tengo un arreglo en el cual hay del 1 hasta el 50 sin repeticiones y quiero que en ese mismo arreglo u otro nuevo aparescan los mismos 50 numeros, pero revueltos (o sea... 48,1,20,.....,2,16,40)
Espero me ayudes. Gracias :)

Si no entiendo mal. Lo que querés es hacer justamente lo que yo te mostré.

Repasemos un poco:

Tenemos un arreglo con los números llamado "MiArreglo":

MiArreglo=[1,2,3,4,5]

Según mi ejemplo...

Primera pasada:
ind1=2
ind2=4
=> MiArreglo=[1,4,3,2,5].
Segunda pasada:
ind1=5
ind2=1
=> MiArreglo=[5,4,3,2,1].
Tercera pasada:
ind1=2
ind2=1
=> MiArreglo=[4,5,3,2,1]
...y así susesivamente...

Todo se hace sobre MiArreglo. Los números originales siguen estando, pero mezclados.

Si no entendés, volvé a preguntar. Quizá yo te haya entendido mal.

Saludos.