Слияние двух упорядоченных массивов.

var
  Form1: TForm1;
  x,y,z:array of integer;
  n,m:integer;
implementation
 
{$R *.dfm}
//создание исходных массивов
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
n:=SpinEdit1.Value;
m:=SpinEdit2.Value;
StringGrid1.ColCount:=n;
StringGrid2.ColCount:=m;
StringGrid3.ColCount:=n+m;
Setlength(x,n);
setlength(y,m);
x[0]:=random(5);
for i:=1 to n-1 do
x[i]:=x[i-1]+random(5);
for i:=0 to n-1 do
StringGrid1.Cells[i,0]:=IntToStr(x[i]);
y[0]:=random(5);
for i:=1 to m-1 do
y[i]:=y[i-1]+random(5);
for i:=0 to m-1 do
StringGrid2.Cells[i,0]:=IntToStr(y[i]);
end;
//слияние
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k:integer;
begin
Setlength(z,n+m);
i:=0; j:=0; k:=0; {устанавливаем счётчики}
while (i<n) or (j<m) do {пока не дошли до конца каждого из массивов}
 begin
  if (i<n) and (j<m) then {если оба массива ещё не закончились}
   begin
    if x[i]<y[j] then {то пишем в новый массив меньший из текущих элементов}
     begin
      z[k]:= x[i];
      inc(i); {переходим к следующему элементу соответствующего массива}
      inc(k); {переходим к следующему элементу конечного массива}
     end
    else
     begin
      z[k]:=y[j];
      inc(j);
      inc(k);
     end
   end
  else if j>m-1 then {иначе один из массивов уже закончился}
   begin {и мы пишем из того, в котором ещё есть элементы}
    z[k]:=x[i];
    inc(i);
    inc(k);
   end
  else if i>n-1 then
   begin
    z[k]:=y[j];
    inc(j);
    inc (k);
   end;
 end;
for i:=0 to k-1 do
StringGrid3.Cells[i,0]:=IntToStr(z[i]);
end;

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, windows, Generics.Collections;
 
 
type
    TMyType = single;
    TMyArray = array of TMyType;
 
var
    arr1, arr2, arrresult: TMyArray;
    i: Integer;
begin
  try
    SetLength(arr1, 10);
    SetLength(arr2, 15);
    for I := 0 to Length(arr1)-1 do
        arr1[i] := Random(10);
    for I := 0 to Length(arr2)-1 do
        arr2[i] := Random(10);
    // заполнили
    // вывод:
    for I := 0 to Length(arr1)-1 do
        write(arr1[i] , ' ' );
    Writeln;
    for I := 0 to Length(arr2)-1 do
        write(arr2[i] , ' ' );
    Writeln;
    Writeln('added:');
 
    // копируем по-быстрому:
    SetLength(arrresult, Length(arr1) + Length(arr2));
    CopyMemory(@arrresult[0], @arr1[0], SizeOf(TMyType) * Length(arr1));
    CopyMemory(@arrresult[Length(arr1)], @arr2[0], SizeOf(TMyType) * Length(arr2));
 
    for I := 0 to Length(arrresult)-1 do
        write(arrresult[i] , ' ' );
 
    // сортируем
    TArray.Sort<TMyType>(arrresult);
    Writeln;
    Writeln('sorted:');
 
    for I := 0 to Length(arrresult)-1 do
        write(arrresult[i] , ' ' );
 
    readln;
 
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.