procedure TForm1.Quicksort (l,r:Integer);
var i,j,Merke,Mitte: Integer;
begin
  i:= L;
  j:= R-1;
  Mitte:= Wert[(L+R)div 2];

  //vergleich
  repeat
  while (Mitte <= Wert[j]) and (j>i) do
  begin
    dec (j);
    counter_Vergleich:=counter_Vergleich+1;
  end;
  while (Mitte >= Wert[i]) and (i<j) do
  begin
    inc (i);
    counter_Vergleich:=counter_Vergleich+1;
  end;

  //tauschen
  if i > j then
  begin
      Merke:=Wert[i];
      Wert[i]:= Wert[j];
      Wert[j]:= Merke;
      counter_Tausch:=counter_Tausch+1;
  {if j > i then
    dec (j);}
  end;

  until i < j;

  //Rekursion

  Quicksort(i+1,R);
  Quicksort(L,j-1);

end;