Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 1 до 10, затем меняет местами первый элемент со вторым, третий с четвертым и тд. Выведите на экран исходный и полученный массивы.

a:array[1..10] of integer; i:integer begin randomize; for i:=1 to 10 do begin a[i]:=random(9)+1; end; for u:=1 to 10 do begin write(a[u]) a[u]:=b[u] end; a[1]:=b[2]; a[2]:=b[1]; a[3]:=b[4]; a[4]:=b[3]; a[5]:=b[6]; a[6]:=b[5]; a[7]:=b[8]; a[8]:=b[7]; a[9]:=b[10]; a[10]:=b[9]; write(a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],a[10]); end. как вариант:)