[Bargest]

Еще вариант:
1) Представим список в виде массива [0..N-1] где N - число элементов в списке.
2) M:=N;
3) Цикл пока M>0:
3.1) K := random(M);
3.2) Переставляем в массиве элемент K и элемент M-1; dec(M);
Получаем перемешанный список песен. После чего благополучно берем все песни по порядку.