Программа не выводит ответ

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
  n,i,imax,imin:Integer;
  a:array of Integer;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
begin
 
begin
n:=StrToInt(Edit1.Text);
StringGrid1.ColCount := n+1;
StringGrid1.RowCount := 2;
StringGrid1.Cells[0,1] := 'Массив';
for i := 1 to n do StringGrid1.Cells[i,0] := 'Элемент ' + IntToStr(i);
 
randomize;
SetLength(a, n+1);
imax := 0;
imin := 0;
for i := 1 to n do begin
    a[i] := random(21)-10;
    if a[i] = -10 then imin := i;
    if a[i] =  10 then iMAX := i;
    StringGrid1.Cells[i,1] := IntToStr(a[i]);
    end;
 
if (imin < imax) and (imin <> 0) then ShowMessage('Минимальный встречается раньше, номер элемента '+IntToStr(imin))
else
if (imin > imax) and (imax <> 0) then ShowMessage('Максимальный встречается раньше, номер элемента '+IntToStr(imax));
 
end;
end;
 
end.

SetLength(a,n);
imax := 0;
imin := 0;
for i := 0 to n-1 do
 begin
  a[i]:=random(21)-10;
  if a[i]<a[imin] then imin:=i
  else if a[i]>a[imax] then imax:=i;
  StringGrid1.Cells[i,1] := IntToStr(a[i]);
 end;
if imin<imax then ShowMessage('Минимальный встречается раньше, номер элемента '+IntToStr(imin))
else
if imin>imax then ShowMessage('Максимальный встречается раньше, номер элемента '+IntToStr(imax));