Ввести массивы вещественных элементов и слить их в один. Процедуры. Delphi

[Nake92]

Ввести массивы вещественных элементов С и D размерностью n и m.
Собрать элементы массивов C и D в один массив упорядоченный по возростанию.Причем ввод массивов и упорядовачение надо оформить в виде подпрограмм.

[kta87]

Создавайте третий массив размерностью m + n. Записывайте в него свои массивы C и D последовательно, затем сортируйте вновь созданный массив например так

procedure EMSortUp(var FMass: array of Real);
var
  i, j: Integer;
  Sort: Real;
begin
  for i:= 0 to Length(FMass) -1 do
    for j:= 0 to Length(FMass) -1 do
      if FMass[j] > FMass[j+1] then
        begin
          Sort:= FMass[j+1];
          FMass[j+1]:= FMass[j];
          FMass[j]:= Sort;
        end;
end;

П.С. Какой тип массива у Вас не написано, поэтому процедура взята из моего модуля для работы с массивами чисто для примера.

[Nake92]

Спасибо попробую разобраться .