type PtrCard = Integer attribute (Size = BitSizeOf (Pointer));
A signed integer type of the same size as a pointer.
PtrInt is a GNU Pascal extension.
program PtrIntDemo; var a: PtrInt; p: Pointer; begin GetMem (p, 10); a := PtrInt (p); Inc (a); p := Pointer (a) end.