Сортировка массива по убыванию

[Poshib22]

В общем, есть одномерный массив, в который вручную вбиваются любые числа, программа должна просмотреть и отсортировать числа по убыванию, но только те, которые лежат в диапазоне 1...20, а остальные бы откидывал. Использовал метод пузырька. Все работает хорошо и правильно, вот только визуал подкачал. Как сделать так, чтобы массив заполнялся не с последней ячейки, а с первой но все так же по убыванию, и чтоб не оставалось пустых ячеек, если число больше 20.

Код:
Юнит1:

var d: integer;

begin

  Label4.Visible := false;
  BitBtn2.Enabled := false;

  val(Edit2.Text, N, d);

  if (d <> 0) or (N = 0) then
  begin
    Label4.Visible := true;
    exit;
  end;

  StringGrid1.ColCount := N + 1;

  BitBtn2.Enabled := true;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

var i, c: integer;

begin

  Label4.Visible := false;

  for i := 1 to N do
    begin
      val(StringGrid1.Cells[i, 0], A[i], c);
      if c <> 0 then
        begin
          Label4.Visible := true;
          exit;
        end;
    end;

  Sort;

  for i := 1 to N do
    if (A[i] > 0) and (A[i] <= 20) then
    begin
      StringGrid2.ColCount := i - 1;
      StringGrid2.Cells[i,  0] := FloatToStr(A[i]);
    end;

end;

end.

Юнит2:

unit k2aaa;

interface

var N: integer;
    A: array [1..1000] of extended;

procedure Sort;

implementation

procedure swap(var x, y: extended);

var t: extended;

begin
  t := x;
  x := y;
  y := t;
end;

procedure Sort;

var i, j: integer;

begin

for j := 1 to N - 1 do
  for i := 1 to N - j do
    if A[i] < A[i + 1] then
      swap(A[i], A[i + 1]);

end;

end.