[YVitaliy]

Сообщение от Nevil_White

ну или просто подскажите куда мне впихнуть мой готовый массив А =)

TItem = Integer; //Здесь можно написать Ваш произвольный тип
TArray = array of TItem;

вот сюда и пихай свой массив (точнее его тип). А сам массив пихай в параметрах функций:

Код:

 MergeSort(мой массив А);

при их вызове.

[PhoeniX]

А где реализация процедуры? Этот код работать не будет, допишите, пожалуйста

Работать будет прекрасно. Приватные внутренние функции - вполне обычная практика, работает как-то так:

Код:

procedure FUNC(a,b: integer); // Основная процедура
var
  c,d: integer; // переменные этой процедуры
  procedure proc(e, f: integer); // Вложенная процедура, будет иметь доступ к a, b, c, d, e, f
  begin
    // код...
  end;
begin
  // код основной процедуры.
  proc(5, 10); // вызываем вложенную - всё ок.
end;

[YVitaliy]

Чет слишком быстро сообщения правлятся, не успеваю прочесть даже