void __fastcall TForm1::ScrollBar2Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
d =ScrollBar2->Position;
if (d < y1 || d > y2)
  {
  y1 = d - a/2;
  y2 = d + a/2;
  Label8->Caption = d;
    for (int ic = 0; ic <= a; ic++)
    {
    for (int ib = 0; ib <= a; ib++)
       {
       massiv[ic][ib] = 0;
       }
    }
  Label5->Caption = d;
  zagruz();
  }
Nachalo();
}
вот фрагмент кода, проблема заключается в том, что переменная d становится равной нулю после обнуления элементов массива. Label8 показывает правильно, а Label5 показывает ноль - почему?