program test;

type Ptr = ^Integer;

var x, y : Ptr;

procedure Print(n : Integer; x, y : Ptr);
begin WriteLn(n, '. x = ', x^:8, ', y = ', y^:8) end;

begin
    x := New(Ptr);
    y := x;
    Print(1, x, y);
    Inc(x, -1);
    Print(2, x, y);
    x^ := 123;
    Print(3, x, y);
    Dispose(y);
end.