Дана строчка (с любым текстом), нужно перемешать в ней все слова случайным образом

vhodstr:='раз, два три :четыре пять, влево вправо, вверх! вниз;';
result:='четыре влево вниз раз пять вправо два вверх три';

Uses
 crt;
Const
 nmax = 100;//Максимальное количество слов в массиве
 dividers = [' ', ':', ';', ',', '.', '!', '?'];
Var
 a,resstr:string;
 words:array [1..nmax] of string;
 i,j,k:integer;
Begin
 clrscr;
 randomize;
 readln(a);
 i:=1;
 j:=1;
 While i <= length(a) do //Заносим каждое слово в массив
  Begin
   If a[i] in dividers then Begin
                             inc(i);
                             continue;
                            End;
   words[j]:='';
   Repeat
    words[j]:=words[j]+a[i];
    inc(i);
   Until (a[i] in dividers) or (i > length(a));
   inc(j);
  End;
 resstr:='';
 For i:=1 to j do
  Begin
   Repeat
    k:=random(j)+1;
   Until pos('*',words[k]) = 0;
   resstr:=resstr+words[k]+' ';
   words[k]:=words[k]+'*';//Использованные слова помечаем маркером
  End;
 writeln(resstr);
 readln;
End.