[Delphi] Передача параметров процедуре

[Язь]

Добрый вечер. По одной из лаб нужно было набыдлокодить учёт "клиентов" (база в файл) + сортировку qSort'ом, слиянием и т.д. В общем-то лаба готова, но не могу никак сдать: преподаватель цепляется к тому, что при вызове процедур из соседнего юнита я передаю слишком много данных.

Теперь о самой проблеме: если выпилить A: zapmas из процедуры и передавать через _13.A := A (_13 - класс), то всё нормально, но только до второй итерации. При первом обходе qSort'a строка Pivot := A[(Lo + Hi) div 2].Date; отдаёт нормальное значение всего массива и идёт дальше. После первого же рекурсивного вызова массив теряется и значение Pivot := A[(Lo + Hi) div 2].Date; выбивает EAccessViolation. Собственно интересует почему так происходит и как это исправить.


Unit1: http://pastebin.com/bvU9i8y8
Unit2: http://pastebin.com/666nSdhs
Код выше полностью рабочий, но вместо _13.qSort(iLo, iHi, A); нужно как-то сделать _13.qSort(iLo, iHi); :-\