Работа с массивом Окно CPU

[supni]

Добрый день! Подскажите, пожалуйста, где здесь ошибка
Надо найти для вектора 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;

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

[XeruH]

На какой именно строчке выдается ошибка? Скорее всего вы выходите за пределы массива.

[supni]

на while Брала вручную отлаживала Не могу понять почему вылетает

[GunSmoker]

Включите опцию Range Check Errors в Project/Options/Compiler и сделайте Build (не Run, не Make, не Compile, а именно Build).

[supni]

Спасибо!!! Получилось Извиняюсь за свою неграммотность, но объясните, пожалуйста, что это было

[GunSmoker]

Ээээээ..... а что получилось-то? Указанная опция не должна была скрыть ошибку, а заменить её на более внятную.