Скопировать элементы из одного массива в другой

const
    m = 3;
  type
    TMas1 = array [1..2*m+1] of real;
    TMas2 = array [-m..m] of real;

const m = 3;
type TMas1 = array [1..2*m+1] of real;
     TMas2 = array [-m..m] of real;
var a:TMas1;
    b:TMas2;
    i,j:integer;
begin
randomize;
writeln('Массив А');
for i:=1 to 2*m+1 do
 begin
  a[i]:=9*random;
  write(a[i]:5:2);
 end;
writeln;
writeln('Массив B');
for i:=1 to 2*m+1 do
b[i-m-1]:=a[i];
for i:=-m to m do
write(b[i]:5:2);
end.

const n=20;
var a,b,c:array [1..20] of integer;
    m,i,j,k:integer;
begin
randomize;
writeln ('Исходный массив А');
for i:=1 to n do
 begin
  a[i]:=6+random(13);
  write (a[i]:4);
 end;
writeln;
//делаем массив четных и нечетных элементов
m:=0;
for i:=1 to n do
if a[i] mod 2=0 then
  begin
    inc(m);
    b[m]:=a[i];
  end;
for i:=1 to n do
if a[i] mod 2<>0 then
  begin
    inc(m);
    b[m]:=a[i];
  end;
writeln('Перестановка четных элеметов вперед');
for i:=1 to m do
write(b[i]:4);
writeln;
i:=1;
while i<=m do
if b[i] mod 6=0 then
 begin
  for j:=i to m-1 do
  b[j]:=b[j+1];
  dec(m);
 end
else inc(i);
writeln('Удаление кратных 6');
for i:=1 to m do
write(b[i]:4);
end.