random letters in one word

{
Задача в Паскаль. Дано слово. Перемешать все буквы в
слове случайным образом. Всем ответившим спасибо!
}
var
str :string;
ch : char;
i,num,num2 : integer;
begin
  str := 'hello';

  for i := 1 to 10 do begin
    num := random(length(str)-1+1)+1;
    num2 := random(length(str)-1+1)+1;
    ch := str[num];
    str[num] := str[num2];
    str[num2] := ch;
  end;
  write(str);
end.