как объеденить два одномерных массива разной длины?

[Artur1992]

Пожайлуста помогите разрешит следующую задачу:
как объеденить два одномерных массива разной длины на паскале?(желательно показать это на примере)

[Stilet]

Я лично предпочитаю что-то вроде такого:

var
 a:array[1..10] of integer;
 b:array[1..5] of integer;
 c,i:^integer;
 k:integer;
begin
 for k:=1 to 10 do a[k]:=k;
 for k:=1 to 5 do b[k]:=k;
 GetMem(c,sizeof(a)+sizeof(b));
 i:=c;
 Move(a[1],i^,sizeof(a));
 inc(i,10);
 Move(b[1],i^,sizeof(b));
 i:=c;
 for k:=1 to 15 do begin
  write(i^:5);
  inc(i);
 end;
readln;
end.

С потолка пишу, так что могут быть бажки.

[Artur1992]

Спасибо БОЛЬШОЕ за инфу, возьму на заметку!

[Stilet]

Всегда пожалуйста )