sorting array

[iftach]

can somebody give me a working sorting algorithm. i cant seem to make any of the ones i found work.

i have this, but it doesn't work. it ain't getting past the while loop for some reason.
 

Code: [Select]

Procedure InsertionSort(size : Integer);

Var
i, j : Integer;
temp : Double;

Begin
 For i := 2 to size-1 do
  Begin
   temp := KDarray[i];
   j := i;
   While (j > 1) AND (KDarray[j-1] > temp) do
    Begin
     KDarray[j] := KDarray[j-1];
     j := j - 1;
    end;
   KDarray[j] := temp;
  end;
End;

[Avarax]

procedure Bubblesort(ToBeSorted: array of double);
var i,j: integer;
      temp: double;
      switched: boolean;
begin
j:=ArrayHigh(ToBeSorted)-1;
switched:=true;
while (j>1) and (switched) do begin
  switched:=false;
  for i:=1 to j do
    If ToBeSorted>ToBeSorted[i+1] then begin
      temp:=ToBeSorted;
      ToBeSorted:=ToBeSorted[i+1];
      ToBeSorted[i+1]:=temp;
      switched:=true;
    end;
  end;
end;



This procedure requires the first array index to be 1 and not 0. not sure if it works, wrote it out of my memories

[iftach]

thanks. it doesn't work (i think you need to decrease the j somewhere),
but it helped me fix mine.
btw, there is problem with the arrayhigh, it gives Type mismatch error.

[Avarax]

oh yeah, forgot decreasing j ;Q