1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:

program MiJoZi_Test;
uses crt;
var
  i,j : integer;
  feld: array[1..10] of longint;

{ ************************************************************************** }

{ Uebergabe: Zu sortierendes Feld, das an den Stellen 1 bis n mit natuerlichen Zahlen belegt ist }

(* FEHLERHAFT!!! SORTIERT ERSTES ELEMENT NICHT WEG, BZW. VORNE BLEIBT EINE ZAHL STEHEN,
   DIE DORT NICHT HINGEHOERT!!! *)

Procedure InsertionSort(Var Feld: Array Of LongInt);
Var
  i, j: LongInt;  { Zaehlvariablen }
  Temp: LongInt;  { Zwischenspeicher }
Begin
  For i := 2 To High(Feld) Do Begin  { High liefert (Nummer vom) hoechsten Feldindex }
    Temp := Feld[i];
    j := i - 1;
    While (Feld[j] > Temp) And (j > 0) Do Begin
      Feld[j+1] := Feld[j];
      j := j - 1;
    End;
    Feld[j+1] := Temp;
  End;
End;

(* Alternativ (funktioniert auch nicht mit dem untigem Test-Hauptprogramm):
Procedure InsertionSort(Var Feld: Array Of LongInt);
Var
  i, j: LongInt;  { Zaehlvariablen }
  Temp: LongInt;  { Zwischenspeicher }
Begin
  For i := 2 To High(Feld) Do Begin  { High liefert (Nummer vom) hoechsten Feldindex }
    Temp := Feld[i];
    j := i;
    While (Feld[j-1] > Temp) And (j <> 1) Do Begin
      Feld[j] := Feld[j-1];
      j := j - 1;
    End;
    Feld[j] := Temp;
  End;
End; *)

{ ************************************************************************** }


begin
  clrscr;
  randomize;
  for i := 1 to 5 do begin  { 5 Testdurchlaeufe }
    for j := 1 to 10 do feld[j] := random(10);  { Fuellen mit Ziffern 0 bis 9 }
    write (i:2,') Unsortiert: ');  { Unsortiert ausgeben }
    for j := 1 to 10 do write (' ',feld[j]);
    writeln;
    Insertionsort(feld);  { Sortieren }
    write ('    Sortiert  : ');  { Sortiert ausgeben }
    for j := 1 to 10 do write (' ',feld[j]);
    writeln; writeln;
  end;
  writeln;
  readln;
end.                    

1:
2:
3:
4:
5:
6:

{...}
For i := 1 To High(Feld) Do Begin  { High liefert (Nummer vom) hoechsten Feldindex }
    Temp := Feld[i];
    j := i - 1;
    While (Feld[j] > Temp) And (j > -1) Do Begin
{...}