Массивы и StrGrid(Нужна помощь)

[бедный мальчик]

Задача: Написать программу, которая бы
1.заполняла столбец в StrGrid числами из массива
2.Имелась возможность смены количества строк
3.Меняла первую и последнюю строку в StrGrid местами

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

Вот код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    StringGrid1: TStringGrid;
    Button4: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const Nmax=100;
type vek=array[1..Nmax] of integer;

var
  Form1: TForm1;
  a:vek;
  i,r:integer;
  n:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
n:=3;
stringGrid1.rowcount:=n+1;
stringgrid1.Cells[0,0]:='массив а';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(edit1.text);
stringgrid1.RowCount:=n+1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
randomize;
for i:=1 to n do
  StringGrid1.Cells[0,i]:=inttostr(random(100));
for i:=1 to n do
  a[i]:=strtoint(stringgrid1.cells[0,i]);
end;

procedure TForm1.Button4Click(Sender: TObject); // ВОТ ЗДЕСЬ СОБСТВЕННО И ДОЛЖНЫ МЕНЯТЬСЯ МЕСТАМИ СТРОКИ
begin
 for i:=1 to n do
 begin
 r:=a[i]; a[i]:=a[n]; a[n]:=r;
 dec(n);
 end;
 for i:=1 to n do
 stringgrid1.Cells[0,i]:=inttostr(a[i]);
end;

end.

Буду очень признателен за помощь.

[mihali4]

Сообщение от бедный мальчик

3.Меняла первую и последнюю строку в StrGrid местами
Проблема: Всё получилось,кроме замены строк местами.

Задаем массив локальных переменных по числу столбцов, заносим туда в цикле, например, данные из первой строки.
Потом копируем данные из последней строки в первую, а данные из нашего массива - в последнюю... Вуа-ля...