Pascal/Turbo Pascal - Ayuda con vectores!!!

Insertar los componentes d eun vector B, dentro de un vector A

{Espero se esto lo que quieres modo simple y rápido pero se copia todo el vector}

program vectores;
uses
crt;
var
vector1, vector2 : array[1..20,1..20] of integer;
x1, y1 : integer;

procedure rellena_vector;
var
x, y : integer;
begin
for x := 1 to 20 do
for y := 1 to 20 do
begin
vector1[x,y] := (x * y);
end;
for x := 1 to 20 do
for y := 1 to 20 do
write(' ',vector1[x,y]);
end;

begin
clrscr;
writeln('contenido vector1');
writeln;
rellena_vector;
move(vector1,vector2,sizeof(vector1));
writeln;
writeln;
writeln('contenido vector2');
writeln;
for x1 := 1 to 20 do
for y1 := 1 to 20 do
write(' ',vector2[x1,y1]);
readln;
end.