Array: ohne sortieren größten wert finden

[Dax]

Delphi-Quellcode:

var i, max: integer;
begin
  max := 0;
  for i := 0 to Length(Array)-1 do
    if Array[i] > max then max := Array[i];
end;