Помогите плз с задачей в Pascal

[DmitryChuvashin]

Условие: перемешать символы в строке случайным образом.
Для получения нового слово написать функцию.
Заранее спасибо!

[NeshSoft]

for i:=1 to Length(S) do
  begin
  j:=random(Length(S))+1;
  Sres:=Sres+S[j];
  Delete(S,j,1);
  end;