Дана последовательность. Расположить отрицательные элементы последовательности, стоящие на четных местах по убыванию

const
   n = 10;
   a : array[1 .. n] of integer =
     (1, -21, 3, -24, 5, 6, 7, -12, 9, 10);
   (*
     (1, -12, 3, -21, 5, 6, 7, -24, 9, 10); { sorted }
   *)
 
var
   i, j, T, prev : Integer;
begin
   for i := 1 to n do
      write(a[i]:4);
   writeln;
 
   for i := 1 to (n div 2) - 1 do
      for j := (n div 2) downto i + 1 do
      begin
         if a[2*j] >= 0 then continue; { нас интересуют только отрицательные, остальные пропускаем }
 
         { Так, значит a[2*j] - отрицательное. Теперь надо найти предыдущее отрицательное }
         { число на четной позиции }
         prev := 2 * j;
         repeat dec(prev, 2) until (prev < 2) or (a[prev] < 0);
 
         { Тут 2 варианта. Либо prev = 0, значит, перед элементом с индексом 2*j нет отрицательных }
         { либо prev > 0, и это четный индекс найденного отрицательного числа }
         if (prev > 0) and (a[2*j] > a[prev]) then
         begin
            T := a[2*j]; a[2*j] := a[prev]; a[prev] := T; { тогда просто меняем эти 2 элемента местами }
         end;
      end;
 
   for i := 1 to n do
      write(a[i]:4);
   writeln;
end.

const
   n = 10;
 
var
   a : array[1 .. n] of integer; 
   i, j, T, prev : Integer;
begin
   for i := 1 to n do
   begin
      write('a[', i:2, '] = '); readln(a[i]);
   end;
   { дальше - без изменений: }
   for i := 1 to n do
      write(a[i]:4);
   writeln;
   { ... }