Brauche hilfe bei Insert Sort

[Newbie44]

Hallo,

ich brauche hilfe bei einem Insertsort in pascal.

Delphi-Quellcode:

procedure BinaryInsertSort(var A:TArr);
var
  i,j,m,Left,Right,Insert:integer;
  Tmp:integer;
begin
  for i:=2 to N do begin
    Tmp:=A[i];
    Left:=1; Right:=i-1; 
      while Left <=Right do begin 
        m:=(Left+Right)div 2;
        if Tmp<A[m]
        then Right:=m-1
        else Left:= m+1;
      end;
      for j:=i-1 downto Left do 
        A[j+1]:=A[j];
      A[Left]:=Temp;
  end;
end;

das hier hab ich schon alles. das geht aber nur wenn mehrere sachen nicht sortiert sind. nun möchte ich das aber so haben das ich ein element im array anfüge, der rest des arrays liegt aber bereits sortiert vor, wie mache ich das, dass nur das letzte element mithilfe der binären suche mit eingefügt wird?

sprich die stelle suchen, dann austauschen und den rest auch noch austauschen.

sprich einen insertsort für nur ein einzige element.

bitte helft mir

gruß und danke

sebastian

[Newbie44]

Kann mir denn wirklich keiner helfen? Ich wäre euch wirklich sehr dankbar für eure Hilfe. Ich komme einfach nicht darauf wie ich das machen soll

[Matze]

Hallo,

du möchtest Hilfe von uns, dann sei bitte so nett und lasse den Mitgliedern hier Zeit, dein Problem nachzuvollziehen, den Source zu verstehen und den Fehler zu finden. In der Regel sollte in der DP frühestens nach 24 Stunden gepusht werden und ich denke, das weißt du. Bitte merke die das für die Zukunft, denn anderen gegenüber, die sich daran halten, wäre das unfair.