aus einem Array die kleinste Zahl herausfinden

[Aphton]

Ähm also folgendes lässt sich kompilieren:

Delphi-Quellcode:

var
  a: Array[1..1] of Integer = (5);

begin
  writeln(kleinsteZahlAusArray(a));
  readln;
...

(der Index ist jedoch eben 0 basiert)

  writeln(low(a) + kleinsteZahlAusArray(a)); Edit: Natürlich ist das nicht ernst gemeint
Aber das mit dem Index ist jz schon ein interessanteres Problem. Kann ich in der aufgerufenen Funktion eig. per Low() iwie den Startwert ermitteln? Weil so klappt das ja nicht - also drinnen nicht, außerhalb der Funktion schon) - ohne dafür einen eigenen Typ definieren zu müssen!