Welchen Index hat der maximalwert in einem Array??

[Dax]

So könnte es gehen:

Delphi-Quellcode:

var Max, MaxI, i:Integer;

Max := Low(Integer);
MaxI := -1;

for i := 0 to High(Array) do
  if Array[i] > Max then
  begin
    Max := Array[i];
    MaxI := i;
  end;