PROGRAM POINTERS;

TYPE P_CHAR = ^CHAR;

VAR CH       : CHAR;
    B        : BYTE;
    CHAR_PTR : P_CHAR;

BEGIN
  CH := 'Z';
  B := 65;
  CHAR_PTR := ADDR(B);
  CH := CHAR_PTR^;
  WRITELN('CH=',CH)
END.