program Project1; 
{$APPTYPE CONSOLE} 
type 
Pint=^integer;   // 定義指針類型
Var
a:integer;
b:integer;
pt:Pint;    // 整形指針
p:pointer; // 無類型指針
begin  
a:=2;
b:=3;
pt:=@b;   // 整形指針指向整形數據
writeln('b=',pt^); 	      
    p:=@a;    // 無類型指針指向整形數據
// b:=p^; // 不可以直接賦值給變量
b:=integer(p^);// 無類型指針指向的內容給整形變量賦值
writeln('b=',b);	          
    pt:=p; // 指針間賦值
writeln('pt^:',pt^); 	     
readln;
end.