Как сделать пошаговую сортировку Шелла? Delphi

[Reydan-46]

Не получается сделать пошаговую сортировку. (Что бы при запуске процедуры выполнялся только одно действие сравнение/обмен...)

Procedure Sort;
const n=10;
var len,q,i,j,k,s,x,m:integer;
	h:array[1..n] of integer;
begin
	q:=n div 2; //* Вычисление шагов */
  len:=0;     // переменная количества шагов
  while q>0 do // пока шаг>0
  begin
    inc(len);   // увеличиваем количество шагов
    h[len]:=q;  // добавляем шаг в масив
    q:=q div 2; // вычисляем новый шаг
  end;
	for m:=1 to len do   // проход по всем шагам
	begin
		k:=h[m];           // задаём шаг
		s:=-k;             // задаём номер барьера
		for i:=k+1 to n do // проход по группам
    begin
			x:=mass[i];         // берём элемент массива (i)
			j:=i-k;             // вычисляем номер элемента группы
			if s=0 then s:=-k;  // если номер барьера 0 то барьер:=-шаг
			s:=s+1;             // номер барьера +1
			mass[s]:=x;         // помещаем элемент массива (i) в барьер
			while x<mass[j] do   // пока элемент массива (i) < элемента своей группы
			begin
				mass[j+k]:=mass[j]; // если true то сдвигаем по группе назад
				j:=j-k;             // вычисляем след. номер элемента группы
			end;
			mass[j+k]:=x;  // если false то вставляем элемент массива (i) из барьера
		end;
	end;
end;

Буду благодарен за любую помощь.

[VIK_aka_TOR]

как вариант могу предложить сделать это через case...
при этом нужно будет поставить "счетчик"... мол который раз выполняется процедура... и в зависимости от счетчика в case выбирать определенную строку с действиями... но тогда вам придется все переменные процедуры сделать глобальными переменными... как и сам счетчик...
такая вот идея...

[Reydan-46]

Спасибо, сделал таким образом:
Все переменные - глобальные.
При создании массива указываю начальные данные

  q:=n div 2; //* Вычисление шагов */
  len:=0;   
  while q>0 do
  begin
    inc(len); 
    h[len]:=q;
    q:=q div 2;
  end;
  m:=1;
  k:=h[m];
  i:=k;
  s:=-k;

И сама процедура сортировки

Procedure StepSort;
begin
  case m of
    1..3:begin
        if i<>10 then inc(i)
        else
          begin
            inc(m);
            k:=h[m];
            i:=k+1;
            s:=-k;
          end;
      end;
  end;
  if m<=3 then
  begin
    x:=mas[i]; 
    j:=i-k;   
    if s=0 then s:=-k; 
    s:=s+1;     
    mas[s]:=x; 
    while x<mas[j] do
    begin
	  mas[j+k]:=mas[j];
	  j:=j-k;
    end;
    mas[j+k]:=x;
    if (m=3) and (i>=10) then inc(m); // для того что бы case больше не сработал
  end;
end;