1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure sortieren(var aa: array of real; von,bis:integer);
  //Quicksort rekursiv
  var i,j: integer; //vor dem 13.02.2002 fälschlicherweise byte
  wertDerMitte:real;
begin
  i:=von;
  j:=bis;
  wertDerMitte:=aa[(von+bis) div 2]; //Die Mitte
  repeat
    while aa[i]<wertDerMitte do inc(i);
    while wertDerMitte<aa[j] do dec(j);
    if i<=j then Begin
      tausche(aa[i],aa[j]);
      inc(i);
      dec(j);
    End;
  until i>j;
  if von<j then sortieren(aa,von,j); //rekursiv
  if bis>i then sortieren(aa,i,bis);
end;                    

1:
2:
3:
4:

procedure tausche(arr1,arr2 : array of real);
begin

end;                    

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

Procedure Ringtausch(Var a,b : Real);
Var
  h : Real;

Begin
  h := a; a := b; b := h
End;