针的使用：typevar这里变量"pointertob"是数据类型记录"b"的一个指针。指针在声明之前可用。这是前向声明，一个使用之前必须声明的规则的例外。创建一个新记录，将值"10"和字符"A"分配给记录的域"a"和"b"，将指针"c"初始化为nil，命令是这样的：new(pointertob);pointertob^.a := 10;pointertob^.b := 'A';pointertob^.c := nil;也可以如下面这样使用with语句来做：new(pointertob