[klupo]

Добрый день! Подскажите, пожалуйста, где здесь ошибка
Надо найти для вектора zProfit статистическую моду
для этого создаю массив FindMo с частотами
В этой части кода ошибка:

Код:

SetLength(FindMo,4,ch+1); //ch=10
Step:=(zProfit[m]-zProfit[1])/ch; 
Stolb:=1; 
Gran:=zProfit[1]+Step;
for i:=1 to m do
begin
if zProfit[i]>Gran then
while zProfit[i]>Gran do
begin
Stolb:=Stolb+1;
Gran:=Gran+Step;
end;
FindMo[1,Stolb]:=zProfit[i];
FindMo[2,Stolb]:=i;
FindMo[3,Stolb]:=FindMo[3,Stolb]+1;
end;

Admin: Пользуемся тегами!

Выдает окно CPU и пишет access violation at 0*767e8989 write of address 0*00030fd8