Pascal ABC.net Сравнение соседних элементов массива

[C_i_K_a_D_a]

Помогите пожалуйста! (желательно с использование процедур)
Слева направо по порядку сравниваются все соседние элементы и, если
первый элемент в паре оказался больше второго , элементы меняются местами .
В результате выполнения программы должно быть 20 строк (в которой элементы постепенно сдвигаются большие - вправо, меньшие - влево )

Program sdvig_chisel;

uses Crt;

const
    N = 20;

type 
    mas = array [1..N] of integer;

var
  a : mas;
  i :integer;

Procedure sdvig;
  var
    i , x :integer;
  begin  
      while i <> N do
          begin
              if a[i] > a [i + 1] then
                 begin
                     a[i] := x;
                     a[i] := a[i + 1];
                     a[i + 1] := x;
                      write(a[i]:5);
                 end;
          i := i + 2;         
    end;
end;    
begin 
    Randomize;
    for i := 1 to N do
       begin
           a[i] := -20 + random(41);
           write(a[i]:5)
       end;
    readln;   
    sdvig;   
    
end.

[Аватар]

Если речь о сортировке таким способом то

procedure Sdvig;
var i,x: Integer;
begin
  i:=1;
  while i<N do begin
    if a[i]>a[i+1] then begin
      x:=a[i];
      a[i]:=a[i+1];
      a[i+1]:=x;
      if i>1 then Dec(i,2);
    end;
    Inc(i);
  end;
  for i:=1 to N do write(a[i]:5);
end;

[C_i_K_a_D_a]

Спасибо! а что значит Dec " (i,2) " ?

[Serge_Bliznykov]

Dec(i,2)
это тоже самое, что

i:=i-2;