В одномерном массиве, состоящем из N целочисленных элементов, вычислить: 2.Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине — элементы, стоявшие в нечетных позициях — Pascal(Паскаль)

uses crt;
var m,m1:array[1..100]of integer;
i,j,n,k:integer;
 
begin
 clrscr;
 randomize;
 write('N-> ');
 readln(n);
 writeln('Исходный массив');
 for i:=1 to n do
 begin
  m[i]:=-50+random(150);
  write(m[i],' ');
 end;
 
 k:=0;
 for i:=1 to n do if i mod 2=0 then
 begin
  inc(k);
  m1[k]:=m[i];
 end;
 for i:=1 to n do if i mod 2=1 then
 begin
  inc(k);
  m1[k]:=m[i];
 end;
 writeln('Отсортированный массив: ');
 for i:=1 to n do write(m1[i],' ');
 readln;
end.