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:

procedure tWortliste.Insert (x: string) ;

var z, Hilfszeiger: lex;

begin

if Anhang=NIL then

begin
new (z);
Anfang:=z;
z^.Vokabel:=x;
z^.naechster:=NIL
end. {if}

else
begin
z:=Anfang;
repeat
Hilfszeiger:=z;
z:=z^.naechster
until ((x < Hilfszeiger^.Vokabel) or (z=NIL));

end; {else}

new (z);
if (x < Hilfszeiger^.Vokabel) then
begin


z^.Vokabel:=Hilfszeiger^.Vokabel;
z^.naechster:=Hilfszeiger^.naechster;
Hilfszeiger^.Vokabel:=x;
Hilfszeiger^.naechster:=z
end

else
begin 
z^.naechster:=Hilfszeiger^.naechster;
z^.Vokabeln:=x;
Hilfszeiger^.naechster:=z
end; {else}

end;					

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:

procedure tWortliste.Insert(x: string);
var
  z, Hilfszeiger: lex;
begin
  if Anhang = nil then // sollte anfang heißen?: wenn noch kein element vorhanden ist...
    begin
      new(z); // speicher reservieren (z ist ein zeiger)
      Anfang := z; // da z nun das erste glied in der kette, ist anfang = z.
      z^.Vokabel := x; // erstem item der liste den string x zuordnen. - lex ist ein record?
      z^.naechster := nil // nächstes element noch nicht vorhanden, daher nil
    end. {if}
  else // falls bereits ein element vorhanden ist
    begin
      z := Anfang; // setze z = anfang
      repeat // um sich nach ganz vorne zum letzten element zu "hangeln"
        Hilfszeiger := z;
        z := z^.naechster // nächstes element (sollte ne vorwärtsdeklaration sein)
      until ((x < Hilfszeiger^.Vokabel) or (z = nil)); // bis letztes element erreicht ist oder element noch keinen string besitzt
    end; {else}

  new(z); // speicher wieder reservieren  { Kann es sein, dass hier sortiert wird? }
  if (x < Hilfszeiger^.Vokabel) then
    begin
      z^.Vokabel := Hilfszeiger^.Vokabel;
      z^.naechster := Hilfszeiger^.naechster;
      Hilfszeiger^.Vokabel := x;
      Hilfszeiger^.naechster := z
    end
  else
    begin
      z^.naechster := Hilfszeiger^.naechster;
      z^.Vokabeln := x;
      Hilfszeiger^.naechster := z
    end; {else}

// Und zum schluss sollte der speicher wieder freigegeben werden:
  dispose(z);
end;