передача массива записей в процедуру

[lionbeast]

procedure TClassPot2.swap(var x,y:Irec);
var t:Irec;
begin
    x.ind:=y.ind;
    x.yk:=y.yk;
end;

procedure TClassPot2.sort(var Mass; N:integer);
type TMass=array [0..1000] of Irec;
var i,j:integer; t:irec;
begin
    for i:=1 to N do
      begin
        swap(t,TMass(Mass)[i]);
        j:=i-1;
        while (j>=1)and(TMass(Mass)[j].ind>t.ind) do
          begin
              swap(TMass(Mass)[j+1],TMass(Mass)[j]);
              j:=j-1;
          end;
        swap(TMass(Mass)[j],t);
      end;
end;

http://programmersforum.ru/attachmen...1&d=1294934479

вообщем создается индексируемый файл(массив записей, 7 полей), из него делается индексный файл(массив записей из ключа и ссылки), после образования индесного файла его нужно упорядочить. На этом этапе собственно и возникает проблема. До передачи массива в процедуру он есть(неупорядоченый), а после выхода его уже нет то есть он пустой. Подскажите в чем ошибка

источник алгоритма сортировки - вставками - http://ru.wikibooks.org/wiki/%D0%9F%...B0.D0.BB.D1.8C


нашел ошибку когда сверял алгоритм сортировки(swap(TMass(Mass)[j],t); надо j+1), терь массив не пустой но тот же, т.е. несортиованый