Работа с двумерным массивом

[Programust]

Подскажите что я сделал не так. Сложно объяснить что это за программа. Задали в универе. Нужно создать двумерный массив, значения которого будут выводиться в TChart. Выходит ошибка при компиляции.

var
  Form1: TForm1;
  maxSmaz, smaz, ll, rr : real;
  kolSek, L, R, masSize, i, j : integer;
  a: array of array of real;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  maxSmaz:= strTofloat(edit1.Text);
  kolSek:= strToInt(edit2.Text);
  masSize:=kolSek*10;
  smaz:=maxSmaz/kolSek;
  setLength(a,kolSek, masSize);


  //Определяем границы L и R
  if odd(kolSek) then
  begin
  L:=Round(masSize/2-5);
  R:=L+10;
  end
  else
  begin
  L:=Round(masSize/2-10);
  R:=L+10;
  end;

  //Вводим массив
  for i := 0 to kolSek do
  begin
  for j := 0 to masSize do
  begin
    ll:=j;
    rr:=j+10+smaz;

    if (rr<L)or(ll>R) then
    a[i,j]:=0;
    if (ll<L)and(rr>L)and(rr<R) then
    a[i,j]:=(rr-L);
    if (ll>L)and (rr<R) then
    a[i,j]:=(ll-L)+(R-rr);
    if (ll<L)and(rr>R) then
    a[i,j]:=R-L;
    if (ll>L)and(ll<R)and(rr>R) then
    a[i,j]:=R-ll;
 //Series1.Add(a[i,j]);
 end;
 L:=L-Round(smaz);
 R:=R-Round(smaz);
 end;
end;
end.

[digitalis]

Каково сообщение об ошибке?
На первый взгляд, параметры цикла i,j должны быть локальными в процедуре TForm1.Button1Click, т.е. в ней определены. Попробуй - вдруг зажурчит?

[Programust]

Всё равно не работает(

[Programust]

Всё решил! в цикле нужно было добавить "-1".

 for i := 0 to (kolSek-1) do
  begin
  for j := 0 to (masSize-1) do