Одномерный массив. Для элементов главной диагонали, меньших нуля, найти максимум элементов столбца

TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    Label4: TLabel;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   a:array[1..10] of integer;
 n,temp,j,min:integer;
 i:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  n:=StrToInt(Edit1.Text);
  if (n>0) and  (n<=10)
  then  stringgrid1.ColCount:=n
  else    showmessage ('Введи число от 0 до 10')
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  for i:=1 to n do
     a[i]:=strtoint(stringgrid1.Cells[i-1,0]);
 
 for i:=1 to n do
     min:=a[1];
     j:=1;
 for i:=1 to n do
  if a[i]<min then
  begin
     min:=a[i];
     j:=i;
end;
 for i:=1 to n  do
   temp:=a[j];
   a[j]:=a[n];
   a[n]:=temp;
 for i:=1 to n do
   StringGrid2.Cells[i-1,0]:=inttostr(a[i]);
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
    with StringGrid1 do
    for i:=0 to ColCount-1 do
    Cols[i].Clear;
    Edit1.Clear;
    with StringGrid2 do
    for i:=0 to ColCount-1 do
    Cols[i].Clear;
end;
 
end.