procedure QuickSort(var A: array of db_record; iLo, iHi: Integer) ;
 var
   Lo, Hi, Pivot : Integer;
   T : db_record ;
 begin
   Lo := iLo;
   Hi := iHi;
   Pivot := (low(a)+high(a)) div 2;
   repeat
     while A[Lo] < Pivot do Inc(Lo) ;   // tutaj nie wiem co ma byc warunkiem :)
     while A[Hi] > Pivot do Dec(Hi) ;
     if A[Lo].imei <= A[Hi].imei then
     begin
       T := A[Lo];
       A[Lo] := A[Hi];
       A[Hi] := T;
       Inc(Lo) ;
       Dec(Hi) ;
     end;
   until Lo > Hi;
   if Hi > iLo then QuickSort(A, iLo, Hi) ;
   if Lo < iHi then QuickSort(A, Lo, iHi) ;
 end;