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