Сортировка массива(Delphi 3.0)

[SUMR04]

Задание: Задать с помощью таблицы одномерный массив A[I] размером N. Вывести в другой таблице этот же массив, отсортированный по убыванию, но толко для элементов, значения которых находится в диапазоне 1-20.

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.DFM}
var A,B:array[0..255] of integer;
i,k,j,c :integer;
N:integer;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
for i:=0 to N do
begin
if (a[i]>=1)and(A[i]<=20) then
begin
B[k]:=A[i];
K:=k+1;
end;
end;

begin
for i:=0 to N do
begin
for j:=N downto i+1 do
begin
if A[i]<a[j] then
begin
c:=A[j];
A[j]:=A[i];
A[i]:=c;
end;
end;
end;
end;

end;

end.