Отсортировать элементы массива, стоящие на четных местах (сортировка с убывающим шагом)

program sort;
 
type
mas= array[1..8] of integer;
const
  massiv: array [1..8] of integer = (-7, 8, 2, 0, 45, -9, -15, 5);
  
var
A,b:mas;
 i,j: byte;
  procedure ShellSort( var A : mas );
    const
      steps = 12;
    var
      i, j, l, k, p, n, max : Integer;
      x : integer;
      s : array [1..steps] of Integer;
    begin
      max:=4;
      k := 1;
      { Формируем последовательность чисел -
        шаги, с которыми выбираем сортируемые подмассивы }
      for i := steps downto 1 do
        begin
          s[i] := k;
          k := k * 2 + 1;
        end;
 
      { Сортировки подмассивов вплоть до шага 1 -
        обычной сортировки пузырьком }
      for k := 1 to steps do
        begin
          l := s[k];
          { Для каждого шага l нужно отсортировать l подмассивов }
          for p := 1 to l do
            begin
              i := max - l;
              n := 1;
              { Сортировка подмассива пузырьком с остановкой }
              { Подмассив - это (A[p], A[p+l], A[p+2*l], ...) }
              while n > 0 do
                begin
                  n := 0;
                  j := p;
                  while j <= i do
                    begin
                      if A[j] > A[j + l] then
                        begin
                          x := A[j];
                          A[j] := A[j + l];
                          A[j + l] := x;
                          n := 1;
                        end;
                      j := j + l;
                    end;
                  i := i - l;
                end;
            end;
        end;
    end;
    
 BEGIN
 cls;
 writeln('Исходный Массив:');
  for i:=1 to 8 do
   write(massiv[i]:2,'   ');
 
 j:=1;
 for i:=1 to 8 do
  if (not odd(i)) then begin b[j]:=massiv[i]; inc(j); end;
  ShellSort(B);
  
  j:=1;
  for i:=1 to 8 do          begin
   if odd(i) then begin A[i]:= b[j]; inc(j); end else a[i]:=massiv[i];  end;
 
   writeln;
   writeln('Полученный массив:');
 
   for i:=1 to 8 do
    write(a[i]:2,'   ');
    
    END.