在线急等！下面这段代码有错误吗？

Question

var 
  count:integer;
begin
count:=13;for i:=1 to count-3 do
begin
  for j:=i+1 to count-2 do
  begin
    for p:=j+1 to count-1 do
    begin
      for q:=p+1 to count do
      begin
           。//写数组，略
      end;
    end;
  end;
end;
当i循环到11的时候应该退出的，但是，却报错说
Project ***.exe raised exception clasee EInvalidPointer with message"Invalid pointer operation".Process stopped.Use Step or Run to continue.
可是我好象根本就没用指针呀，不知道是什么原因，那位高人指点！！！！

Answer 1

应该是别的地方出错，或者写数组里改变了count,j,p,q的值？不知道你省略的内容是什么