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:

PROGRAM pointer;

  TYPE link  = ^liste;
       liste = RECORD
                 name : STRING [80];
                 next : link;
               END;

  VAR p,first : link;
      index   : integer;
      n       : STRING [80];

BEGIN
  (* Das später letzte Element der Liste zeigt auf *)
  (* keinen weiteren Datensatz. *)
    first := NIL;

  FOR index := 1 TO 10 DO
  BEGIN
    (* Pointerelemente einlesen *)
      write ('->');
      readln (n);
    (* Anfordern eines neuen Records *)
      new (p);
    (* Zuweisen des Recorddatenfeldes *)
      p^.name := n;
    (* Der neue Record bekommt die Adresse des *) (* letzten Records, die ja in "first" noch *)
    (* steht. *)
      p^.next := first;
    (* Aktualisieren des Anfangszeigers *)
      first := p
  END;
  (* Vorbereitung der Ausgabe: Zeiger "p" wird auf *)
  (* das "erste" Element der Liste gesetzt *)
    p := first;
  WHILE (p <> NIL) DO
  BEGIN
    (* Pointerelemente ausgeben *)
      write (p^.name);
    (* Setzen des Zeigers auf den nächsten Record *)
      p := p^.next
  END
END.