Машина Тьюринга

[Дарьяна]

Помогите, пожалуйста, решить задачу. Одну решила, а эту не понимаю.

На ленте машины Тьюринга задана последовательность из символов двоичного алфавита. Необходимо переместить все нули в начало строки, а единицы - в конец.

[d3qoot]

Необходимо переместить все нули в начало строки, а единицы - в конец.

Самое примитивное:
Посчитать кол-во 0 и 1 в строке (предположим, в edit1):

k:=0;
j:=0;
for i:=1 to length(edit1.Text) do
 if edit1.Text[i]='0' then 
 k:=k+1
 else
 j:=j+1;

Затем переписать строку:

for i:=1 to k do
 edit1.Text:=edit2.Text+'0';
for i:=1 to j do
 edit1.Text:=edit2.Text+'1';

[Дарьяна]

d3qoot, спасибо большое!