Не работает процедура

procedure TForm1.Button6Click(Sender: TObject);
 
    var
  i,j: integer;
  y: array[1 .. 15, 1 .. 4] of double;
  g: array[1 .. 20, 1 .. 4] of double;
  d,s,n: double;
 
begin
  d:=StrToFloat(Edit4.Text);
  s:=StrToFloat(Edit5.Text);
  for i:=1 to 15 do begin
        for j:=1 to 3 do begin
            y[i,j] := 0; //зануляем массив
      end;
    end;
 
  for i:=1 to 20 do begin
        for j:=1 to 3 do begin
            g[i,j] := 0; //зануляем массив
      end;
    end;
 
 
    for i:=1 to 15 do begin
        for j:=0 to 1 do begin
            y[i,j] := i; //заполняем Сотрудников Y
            StringGrid2.Cells[j,i]:= FloatToStr(y[i,j]);
      end;
     end;
 
    for i:=1 to 15 do begin
        for j:=4 to 4 do begin
            y[i,j] := Random(30); //заполняем дни Y
            StringGrid2.Cells[j,i]:= FloatToStr(y[i,j]);
      end;
    end;
 
 
    for i:=1 to 15 do begin
        for j:=2 to 2 do begin
            n:=(y[i,4]*d)*s/100;
            y[i,j] := y[i,4]*d-n; //заполняем ЗП сотрудников Y
            y[i,3] := n;          //заполняем налоги сотрудников Y
            StringGrid2.Cells[j,i]:= FloatToStr(y[i,j]);
      end;
    end;
 
    for i:=1 to 20 do begin
        for j:=0 to 1 do begin
            g[i,j] := i; //заполняем Сотрудников G
            StringGrid3.Cells[j,i]:= FloatToStr(g[i,j]);
      end;
    end;
 
    for i:=1 to 20 do begin
        for j:=4 to 4 do begin
            g[i,j] := Random(30); //заполняем дни G
            StringGrid3.Cells[j,i]:= FloatToStr(g[i,j]);
      end;
    end;
 
    for i:=1 to 20 do begin
        for j:=2 to 2 do begin
            n:=(g[i,4]*d)*s/100;
            g[i,j] := g[i,4]*d-n; //заполняем ЗП сотрудников G
            g[i,3] := n;          //заполняем налоги сотрудников G
            StringGrid2.Cells[j,i]:= FloatToStr(g[i,j]);
      end;
    end;
 
end;