Удвоить элементы с четными номерами и переписать их в новый массив. Полученный массив отсортировать

Const nmax=50;
Type mas=array[1..nmax*2] of integer;
Var A:array[1..nmax] of integer;
    B:mas;
    i,n,m,t:integer;
Procedure Sort(Var A:mas;m:integer);
Var i,j:integer;
Begin
    For i:=m downto 2 do
     For j:=2 to i do
      if A[j]<A[j-1] then
      Begin
        t:=A[j];
        A[j]:=A[j-1];
        A[j-1]:=t;
      End;
End;
Begin
    Repeat
     write('Введите размерность массив 1<=N<=',nmax,': ');
     readln(n);
    Until n in [1..nmax];
    writeln('Исходный массив');
    For i:=1 to n do
    Begin
      A[i]:=-15+random(31);
      write(A[i]:4);
    End;
    writeln;
    For i:=1 to n do
     if odd(i) then 
     Begin
       inc(m);
       B[m]:=A[i];
     End
     else
     Begin
       inc(m);
       B[m]:=A[i];
       inc(m);
       B[m]:=A[i];
     End;
    writeln('Новый массив');
    For i:=1 to m do
     write(B[i]:4);
    writeln;
    Sort(B,m);
    writeln('Новый массив после сортировки');
    For i:=1 to m do
     write(B[i]:4);;
    readln;
End.