(* Chapter 12 - Program 1 *)
program First_Pointer_Example;

type Int_Point = ^Integer;

var Index         : Integer;
    Where         : ^Integer;
    Who           : ^Integer;
    Pt1, Pt2, Pt3 : Int_Point;

begin
   Index := 17;
   Where := Addr(Index);
   Who := Addr(Index);
   Writeln('The values are   ',Index:5,Where^:5,Who^:5);

   Where^ := 23;
   Writeln('The values are   ',Index:5,Where^:5,Who^:5);

   Pt1 := Addr(Index);
   Pt2 := Pt1;
   Pt3 := Pt2;
   Pt2^ := 151;
   Writeln('The Pt values are',Pt1^:5,Pt2^:5,Pt3^:5);
end.




{ Result of execution

The values are      17   17   17
The values are      23   23   23
The Pt values are  151  151  151

}