when i try to save my program maple is close, crashing. how can i fix this?

Hello, i want to do convert numbers to binary code 8 bytes and I want to sum the digits of each number 

For example first number is 0 i want to write 0 0 0 0 0 0 0 0 , sum=0, for 1= 0 0 0 0 0 0 0 1,  sum =1 for 7= 0 0 0 0 0 1 1 1 sum=3 etc.....
my code is this;

for i from 0 to 10 do;
> S(i):=convert(i,binary);
> end do;

and output is 

> 

                              S(0) := 0
                              S(1) := 1
                              S(2) := 10
                            S(3) := 11
                            S(4):=100
                             S(5) := 101
                             S(6) := 110
                            S(7) := 111
                           S(8) := 1000
                             S(9) := 1001
                            S(10) := 1010
                and  Histogram(S(i));  doesnt work.                

function is F(x)= x-tanh(4*x/T) and diff(F(x))= 1-(4/T)*(1/T*Cosh(4*x/T)^2). x and t variable T max value=7, i want to do plots ising models function. Anyone can help me?

Graphich will be this 

https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcTSo2BHyF5fvb8Dy6bWhELRAAIoaWmxp89G3w&usqp=CAU

I want to calculate the arithmetic average of a class of 5 students for 3 different exams. I want to calculate a different average for each exam. I want to use i and j variables. exam grades will be random like 20*i. How can i do this program? Any can do this? Thank you 

I try this program but i get error

total:=0;

numb:=0;

for i from 1 to 3 do

for j from 1 to 5 do

N[i,j]:=20*i;

total:=total+N[i,j];

numb:=numb+i

end do;

end do;

evalf(total/numb);