Сортировки и динамический массив(Delphi)

[boberb]

На форме накидано 2 стринггрида. 1 спин эдит и кнопка. В стринг гриде1 - исходный массив, в стринггриде 2 - отсортированный, нужно отсортировать пирамидальной сортировкой, используя динамический массив, вот фрагмент кода

procedure TForm1.Button6Click(Sender: TObject);
var
    V,W:Dynvect;
    i:integer;
    d:string;
begin
  SetLength(V,Spinedit1.Value);
  for i:=0 to spinedit1.Value-1 do
  v[i]:=strtofloat(stringgrid1.cells[i,0]);
//создаем новій динамический массив W, чтобы избежать путаницы с 
//индексацией в сортировке
  setlength(W,length(v)+1);
  for i:=0 to length(v)-1 do
  w[i]:=v[i];
  w[length(v)]:=0;
  Heapsort(w);
    for i:=0 to m-1 do
        v[i]:=w[i];
  stringgrid2.ColCount:=spinedit1.Value;
    for i:=0 to m-1 do
       begin
       d:=floattostr(v[i]);
      StringGrid2.Cells[i,0]:=d;
      end;
end;

вот код сортировки

//------------------------------ПИРАМИДАЛЬНАЯ
//дополнительніе функции для вічисления дочерних элементов
function LEFT(i:integer):integer;
  begin
     result:=2*i;
  end;
function RIGHT(I:integer):integer;
  begin
    result:=2*i+1;
  end;
function PARENT(I:integer):integer;
  begin
    result:=i div 2;
  end;
//процедура проверки основного свойства кучи
procedure Max_Heapify(var A:DynVect;Index:integer);
var L,R,largest:Integer;
begin
l:=left(Index);r:=right(Index);
if (l<=heap_size) and (a[l]>a[Index])
  then largest:=l
  else largest:=Index;
if (r<=heap_size) and (a[r]>a[largest])
  then largest:=r;
if largest<>Index then
  begin
  swap(a[Index],a[largest]);
  max_heapify(a,largest);
  end;
end;
//процедура построения максимальной кучи
procedure Build_Max_Heap(var A:DynVect);
var i:integer;
begin
  heap_size:=length(a)-1;
  for i:=((length(a)-1) div 2) downto 1 do
  max_heapify(a,i);
end;
//сама сортировка
procedure Heapsort(var a:Dynvect);
var I:integer;
begin
//----Перенумерация динамического массива
  for i:=length(a) downto 1 do
  a[i]:=a[i-1];
  a[0]:=0;
//------
Build_max_heap(a);
//heap_size:=heapsize(a,1);
for i:=Length(a)-1 downto 2 do
  begin
  swap(a[1],a[i]);
  heap_size:=heap_size-1;
  max_heapify(a,1);
  end;
//----Обратная нумерация
for i:=0 to length(a)-1 do
a[i]:=a[i+1];
a[length(a)]:=0;
//-------
end;

Собственно, ошибка возникает при заполнении стринггрид2.
Invalid Pointer Operation
что бы это могло быть?

[boberb]

теперь же пишет Acess Violation

[boberb]

товарищи, помогите, пожалуйста)

[vovk]

Пошагово запустите процедуру, и смотрите где за пределы вылазит.

PS
Скинте проект если не получится найти, попробую разобраться.

[boberb]

Сообщение от vovk

Пошагово запустите процедуру, и смотрите где за пределы вылазит.

PS
Скинте проект если не получится найти, попробую разобраться.

я делал уже пошагово, но ничего отследить не смог, тк за пределы ничего не вылазит(вроде)

http://zalil.ru/32895273
вот сам проект, но там чуть больше того, что я написал в начальном сообщении)

[vovk]

посмотрите внимательно процедуру procedure Heapsort(var a:Dynvect);

в 2 местах попытка выползти за пределы массива.

[boberb]

Сообщение от vovk

посмотрите внимательно процедуру procedure Heapsort(var a:Dynvect);

в 2 местах попытка выползти за пределы массива.

а конкретно в ней или в дополнительных процедурах?
я проследил выход за пределы только в перенумерациях, еще есть где-нибудь?

[vovk]

procedure Heapsort(var a:Dynvect);
var I:integer;
begin
//----Перенумерация динамического массива
  for i:=length(a) downto 1 do
  a[i]:=a[i-1];
  a[0]:=0;
//------
Build_max_heap(a);
//heap_size:=heapsize(a,1);
for i:=Length(a)-1 downto 2 do
  begin
  swap(a[1],a[i]);
  heap_size:=heap_size-1;
  max_heapify(a,1);
  end;
//----Обратная нумерация
for i:=0 to length(a)-1 do
a[i]:=a[i+1];
a[length(a)]:=0;
//-------
end;