Lape: ConstPointer issue

const I:Int32 = 100;
const constPtr_to_constInt: ^const Int32 = @I;

begin
  WriteLn(constPtr_to_constInt^ := 9); //success
end;