[NumLock]

Код:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);

procedure test;
const
  N = 10;
var
  i:  Integer;
  j: Integer;
  B, A: array [0..$ff] of Integer;
begin
  for i:=1 to N do
  begin
    j:=i;
    while (j>1) and (B[j-1]>A[i]) do
    begin
      B[j]:=B[j-1];
      j:=j-1;
    end;
    B[j]:=A[i];
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  test;
end;

в текст сам переписывай