[Bargest]

Код:

randomize;
m:=random(n);
for i:=0 to m-1 do
begin
 k:=random(n);
 for j:=k to n-2 do
   a[j]:=a[j+1];
 dec(n);
end;