В delphi 7 не предусмотрен возврат массива как результат работы функции?

[Illusiony]

ошибка заключалась вот в чем:

type TReturnArray=array of Integer;

function sort_by_min(mas:TReturnArray;max:integer):TReturnArray;//
var mas_1:TReturnArray;
i:Integer;
begin
  SetLength(mas_1, length(mas)); // 
  SetLength(Result, length(mas)); //
i:=0;
  for i:=0 to length(mas)-1 do  begin
    mas_1[i]:=mas[i];
  end;
  for i:=0 to length(mas)-1 do  begin
    Result[i]:=min_index_array(mas_1,100);//сдесь вместо 100 нужно было max записать

    mas_1[Result[i]]:=max;// а этой строчки у вас вообще нету
  end;
end;

Хотя я уже на 100% в этом не уверен, но ошибка пропала и результаты работы функций правильные.

[Stilet]

а этой строчки у вас вообще нету

А она мне и не нужна
Впрочем раз ты задачу решил уже не важно.