求高手看看全局变量那里错了

var
  Form1: TForm1;
  type
       bancai=^bc;   //板材的数据结构
         bc=record
         long:real;
         width:real;
         x1:real;
         y:real;
         page:integer;
         next:bancai;
     end
  p,q,:bancai;
implementation

{$R *.dfm}