Перестановка элементов попарно

uses Crt;
Procedure vWrite(const a: array of Integer);
Var i: Integer;
begin
   for i:= 0 to High(a) – 1 do
     if a[i] > a[i + 1] then begin
t:= a[i]; a[i]:= a[i + 1]; a[i + 1]:= t;
     end;  {end для if}
   vWrite(a); {Вызов процедуры vWrite(a)}
     end; {один end для if, а этот для чего?}
const n = 10;
Var a: array [1..10] of Integer;
       i: Integer;
begin ClrScr;
    Randomize;
   WriteLn('          Исходный массив:');
   for i:= 1 to n do
     a[i]:= -20 + Random(41);
       vWrite(a); {Вызов процедуры  vWrite(a)}
WriteLn('   Массивы после попарных перестановок:');
   for i:= 1 to 10 do
       Step(a);  {Вызов процедуры  Step(a)}
   ReadLn
end.

 Исходный массив:
17   9   -12   -9   -15   -15   -10   3   15   -11
   Массивы после попарных перестановок:
  9   -12   -9   -15   -15   -10    3    15   -11   17
-12   -9   -15   -15   -10    3     9    -11   15   17
-12   -15 -15   -10    - 9    3    -11     9   15   17
-15   -15 -12   -10    - 9    -11    3     9   15   17
-15   -15 -12   -10   - 11    -9     3     9   15   17
-15   -15 -12   -11   - 10    -9     3     9   15   17
-15   -15 -12   -11   - 10    -9     3     9   15   17
-15   -15 -12   -11   - 10    -9    3      9   15   17
-15   -15 -12   -11   - 10    -9    3      9   15   17
-15   -15 -12   -11   - 10    -9    3      9   15   17