[AleD]

Код:

var
DATA : array of Float; //динамический массив, размер которого задаю в  тексте программы.
DATAlength: integer;
i,num: integer;

//далее идёт процедура, которая находит максимальный элемент в массиве, и  возвращает номер этого элемента в массиве. В эту процедуру нужно  передать массив(точнее указатель на массив, чтобы не загружать память)

procedure maxelement(pMass : Pointer; mNFFT : integer; var element  : integer);
var
mass: array of Float;
begin
Pointer(mass) := pMass;
element:=0;
for i:=1 to mNFFT-1 do
  begin
  if abs(mass[i])>abs(mass[element]) then
  element:=i;
  end;
end;

//далее  идёт кусок из текста, в котором обращаюсь к процедуре
setlength(DATA, DATAlength);
...
maxelement(@DATA[Low(DATA)], DATAlength, num);

как то так