Помогите, пожалуйста!!!
Дан одномерный массив А состоящий из 2n элементов. Переставить элементы массива следующим образом:
1) a[n+1], a[n+2], . . .,a[2n], a[n], a[n-1], . . ., a[1].
2) a[1], a[n+1], a[2], a[n+2], . . .,a[n], a[2n].
3) a[2n], a[2n-1], . . .,a[n+1], a[1], a[2], . . ., a[n].

это не то

Uses crt;Var m:array[1..1000] of integer;I,sr,n:integer;BeginClrscr;Writeln('Введите размер массива');Readln(n);For i:=1 to n doBeginm[i]:=random(30)+1;Write(m[i],' ');Sr:=sr+m[i];End;Writeln;Writeln(' Сред. Арф. = ',sr div n);Readkey;End.