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

Var a : Byte;
      zeiger_auf_byte : ^Byte;
BEGIN
 zeiger_auf_Byte := Addr(a) // Speichert die Adresse von a ?!
 a:= 1 //Die Adresse erhält den Wert 1?
...					

1:
2:

a:= 5;
zeiger_auf_a^ := 5;					

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

TYPE 
  pRealList = ^tRealList; 
  tRealList = RECORD 
   Value : Real; // Nutzdaten
   Next : pRealList; // Zeiger auf dan nächste Element
  END; // tRealList					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure Appent2RealList(Value : Real; aList : pRealList); 
  VAR 
   Runner, NewEle : pRealList; 
 BEGIN 
  NEW(NewEle); // Hier wird Speicher für das neue Element reserviert
  NewEle^.Value := Value; // nur deshalb kann das hier funktionieren
  NewEle.Next := NIL; // Da dies das letzte element sein soll gibt es kein nächstes
  Runner := aList; 
  IF (Runner = NIL) THEN // Sonderfall Liste ist leer 
   aList := NewEle 
  ELSE BEGIN // Eintrag anhängen 
   WHILE (Runner^.Next <> NIL) DO
    Runner := Runner^.Next; 
   Runner^.Next := NewEle; 
  END; // Eintrag anhängen 
 END; // Appent To RealList