[Asinkrit]

Можно и проще было это сделать)

Код:

...
type
  TFloatArray = array of Float;
...
function GetMaxEement(const FloatArray:TFloatArray):Integer;
var
  i:Integer;
begin
  Result:=0;
  if Length(FloatArray) > 1 then
    for i:=Low(FloatArray)+1 to High(FloatArray) do
      if abs(FloatArray[i]) > abs(FloatArray[Result]) then
        Result:=i;
end;
...