Помогите отсортировать массив методом бинарных вставок

[zhorzh2407]

я создаю массив случайных чисел, диапозон массива определяется введение его размерности в edit1..

...
public
a:array[1..10000]of integer;
n:integer;
end;
...

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
n:=strtoint(edit1.text);
randomize;
for i:=1 to n do
a[i]:=random(10*n);
end;

помогите пожалуйста его отсортировать методом бинарных вставок.. в интернете смотрел, приведенные примеры не понял.. так что помогите кодом, желательно с коментариями.. заранее спасибо..

[Александр М]

Разбивай массив на 2 и сортируй как Андрюха сказал