Построение массива по правилу - Turbo Pascal

const nmax=100;
var b:array[1..nmax] of integer;
    m,i,j:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Введите половину размера массива от 1 до ',nmax div 2,' m=');
readln(m);
until m in[1..nmax div 2];
writeln('Исходный массив:');
for i:=1 to 2*m do
 begin
  b[i]:=random(100);
  write(b[i]:4);
 end;
writeln;
i:=1;
while i<2*m do
 begin
  x:=b[2*m];
  for j:=2*m downto i+1 do
  b[j]:=b[j-1];
  b[i]:=x;
  i:=i+2;
 end;
writeln('Перестановка:');
for i:=1 to 2*m do
write(b[i]:4);
readln
end.