aus einem Array die kleinste Zahl herausfinden

[Aphton]

Delphi-Quellcode:

function kleinsteZahlAusArray(A: Array of Integer): Integer;
label
  neuerVersuch;
var
  i: Integer;
begin
  neuerVersuch:
  Result := Random(Length(A));
  for i := 0 to High(A) do
    if i <> Result then
      if A[i] < A[Result] then
        goto neuerVersuch;
end;

Wer kanns verschlimmbessern?