Sortieren durch Einfügen (Insert-Sort)

  zahlen, sortiert: Array[1..10] of Integer;

  // erste Zahl kopieren
  sortiert[1] := zahlen[1];
  // alle Zahlen nacheinander an richtiger Stelle einfügen
  for i:=2 to 10 do
  begin
    j:=i;
    // sortierte Zahlen verschieben, um für die
    // neue Zahl Platz zu machen
    while ((zahlen[i] < sortiert[j-1]) and (j>1)) do
    begin
      sortiert[j] := sortiert[j-1];
      j := j-1;
    end;
    // Zahl an richtiger Stelle einfügen
    sortiert[j] := zahlen[i];
  end;

lokal