1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure bubblesort(var f: Array of Integer);
var i,j,temp: Integer;
begin
  for i:=High(f) downto Low(f)+1 do 
    for j:=Low(f)+1 to i do 
      if f[j-1] > f[j] then begin
        temp := f[j-1];
        f[j-1] := f[j];
        f[j] := temp;
      end; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

var MeinZahlenArray: Array of Double;
AbsMin: Double;
//...
// hier noch ein Fehler-Abfangen einbauen, wenn keine Zahl im Array ist!!
AbsMin := abs(MeinZahlenArray[0]);
for i := 1 to high(MeinZahlenArray) do
  if abs(MeinZahlenArray[i]) < AbsMin then
    AbsMin := MeinZahlenArray[i];