Помогите еще с программами

[TwEEkcs]

2.(Одномерный массив 12 элементов заполнить случ. положительными и отрицательными значериями) Пусть первый массив A. сформировать массив В по следующему правилу B[1]=A=[1], B[2]=A[12], B[3]=A[2], B[4]=A[11]...

Помогите !))

[Gongled]

program pr;
uses CRT;
const
  n = 12;
type
  ar1 = array[1..n] of integer;
var
  a, b : ar1;
  i, k : integer;
begin
clrscr;
randomize;

for i:=1 to n do
begin
    a[i] := random(19)-9;
    write(a[i]:4);
end;

k := 0;

writeln;
for i:=1 to n do
begin
    if i mod 2=1 then b[i] := a[i]
    else
    begin
        b[i] := a[n-k];
        inc(k);
    end;
    write(b[i]:4);
end;

end.