{ Funktion: Insertion-Sort, sortieren durch direktes Einfgen
  Autor   : DG1XPZ
  Sprache : Turbo Pascal 7.0}
program insert;

type zahlenArray = array[0..9] of integer;
const  zahlen: zahlenArray=(9,5,8,6,3,7,4,0,1,2);

var m,n:integer;

procedure sort;
var
  laenge,i,j,h: Integer;
begin
  laenge:=SizeOf(zahlen) div SizeOf(zahlen[0])-1;
  for i:=1 to laenge do
  begin
    h:=zahlen[i];
    j:=i;
    while zahlen[j-1]>h do
    begin
      zahlen[j]:=zahlen[j-1];
      j:=j-1;
      if j=0 then break;
    end;
    zahlen[j]:=h;
  end;
end;

procedure ausgabe(z: zahlenArray);
var
  i: Integer;
begin
  for i:=0 to (SizeOf(zahlen) div SizeOf(zahlen[0]))-1 do
  begin
    write(z[i]);
    write(',');
  end;
  write('\b \n');
end;

begin
  sort;
  writeln('Sortiert:');
  ausgabe(zahlen);
end.