Попробуйте вместо
Цитата
B[i]:=A[i]*Max;

поставить
A[i]:=A[i]*max;