Помогите пожалуйста!!!
Заполнить одномерный массив размером [8] случайными числами в интервале от -50
до 50. Поменять местами равноотстоящие от центра элементы.
Например:
На входе:
-5
6
7
8
-1
3
12
36
На выходе:
36
12
3
-1
8
7
6
-5

const n=8;var a:array[1..n] of integer;b,i:integer;beginRandomize;for i:=1 to n do  begin a[i]:=random(20)+1; write(a[i]:3); end;writeln;for i:=1 to n div 2 do begin b:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=b end;for i:=1 to n do write(a[i]:3);writeln;end.Пример:  9  5  6 11 13  4 16 18 18 16  4 13 11  6  5  9