помгите! string Copy & Delete

[Димарик]

begin
randomize();
st:='01234';
st1:='';
while length(st1)<4 do
begin
b1:=random(length(st)+1);
st1:=st1+Copy(st,b1,1);
delete(st,b1,1);
end;
Memo1.Lines.Add((st)+#9+(st1));
end;

пытался добиться следуещего:
из строки st скопировать 4 елемента в строку st1 при етом удаляя их из st
- после выпонения в строке st должен остаться 1 елемент а в строке st1 их должно быть 4
- немогу понять почему бывает повторяется число в st и st1.???

[_Dmitry]

При использовании random, полученные цифры могут совпадать

[Димарик]

да нет. тут же непросто рандом. .. он просто указывает какой елемент из первой строки нужно скопировать и потом удалить, после удаления рандомное чмсло даже повторяясь укажет уже на другой елемент строки.

[Stilet]

В определении координаты трабла вроде, пробуй так:
b1:=1+random(length(st));

[Димарик]

нет ну как я невнимателен.
Stilet спасибо.