Флешка, жесткий диск, дискета, диски.
Var num : integer;
....
num := arr[0];
for i:=0 to n-1 do arr[i] := arr[i+1];
arr[n] := num;
Используйте алгоритм быстрой сортировки.
Пример:
Массив:
5 3 4 2 1 6 3 2 4
После сортировки:
<span>1 2 2 3 3 4 4 5 6 </span>
<span>Различных чисел: 5</span>
Текстовае даные-что нибудь написать декорирование- разукрасить наглядность более точнее