случайный выбор имен

[SeRhy]

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

[Stilet]

В цикле от 0 до (count-1) div 2 делать
переместить Memo.lines[random(count-1)] в другой список

[puporev]

Значение random(count-1)] может повторяться и будем выдергивать одно и то же слово. Это значение нужно генерировать в цикле repeat ... until или с goto c проверкой на принадлежность ранее созданному например множеству. Типа так:
for i:=0 to (count-1) div 2
repeat
j:=random(count-1)+1;b[i]:=j;
until j not in b;

[Stilet]

Значение random(count-1)] может повторяться

Я имею ввиду что после выбора значения оно из источника стирается

[puporev]

Понял. Нужно еще добавить delete(i) и count:=count-1, т.к. массив будет убывать.