Паскаль Имеется массив на 10 элементов . Все элементы- натуральные числа . Каждый четный элемент поменять местами с предыдущим . Вывести полученный массив.

const n=10;  var a:array[1..n] of integer; i,b:integer;  begin Randomize; writeln('Исходный массив:'); for i:=1 to n do  begin  a[i]:=random(51);  write(a[i]:4);  end; writeln; for i:=2 to n do  if a[i] mod 2 = 0   then begin b:=a[i]; a[i]:=a[i-1]; a[i-1]:=b end; writeln('Измененный массив'); for i:=1 to n do write(a[i]:4); writeln; end. Пример: Исходный массив:   23  40  43  45  29  17  11  22  23  27 Измененный массив   40  23  43  45  29  17  22  11  23  27