Lazarus

[SnS]

здравствуйте, ув.программисты. у меня завтра зачёт по Lazarus, а я никак не могу понять как сделать: Пользователь вводит размерность массива (N<100). Выбирает способ сортировки массива ( по убыванию и возрастанию).
var
Form1: TForm1;
a,b: array[1..100] of integer;
n,i,j:integer;
implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var i,temp:integer; flag:boolean;
begin
n:=StrToInt(Edit1.Text);
StringGrid1. rowCount:=n+1;
for i:=1 to n do
begin
StringGrid1.Cells[i,0]:=IntToStr(i);
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var t,k:integer;
begin
for i:=1 to n do
a[i]:=StrToInt(StringGrid1.Cells[i,1]);
StringGrid1.rowcount:=n+1;
if radioGroup1.itemindex<>-1 then
case radioGroup1.itemindex of
0: begin
for k:=1 to n-1 do
begin
for i:=1 to n-1 do
begin
if (a[i]<a[i+1])
then
begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
end;
end;
end;

StringGrid2.Cells[i,0]:=IntToStr(i);
StringGrid2.Cells[i,1]:=IntToStr(a[i]);
end; end;
1: 0: begin
for k:=1 to n-1 do
begin
for i:=1 to n-1 do
begin
if (a[i]<a[i+1])
then
begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
end;
end;
end;

StringGrid2.Cells[i,0]:=IntToStr(i);
StringGrid2.Cells[i,1]:=IntToStr(a[i]);
end; end;

end;

у меня загвоздка со способами сортировки массива. заранее спасибо)