· fsortarray := @sortarray;
· fsize := high(sortarray) - low(sortarray) + 1;
· freeonterminate := true;
· end;
· fsortarray := @sortarray;
· fsize := high(sortarray) - low(sortarray) + 1;
· freeonterminate := true;
· end;