{So geschieht die Erzeugung von Pointern}

program pointer;
uses crt;

type
   ZeigerTyp = ^integer;

var
   zeiger : ZeigerTyp;

begin
   new(zeiger);
   zeiger^:=5;
   writeln('Zeiger enthaelt ',zeiger^);
end.