Поиск минимального элемента массива

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm2 = class(TForm)
    Label1: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender:TObject);//здесь ошибка 
const
    SIZE=5;
var
    a:array[1..SIZE] of integer;
    min:integer;
    i:integer;
begin
        for i:=1 to SIZE do
           a[i]: = StrToInt(StringGrid1.Cells[i-1,0]);
        min:=1;
        for i:=2 to SIZE do
           if a[i] < a[min] then min:=i ;
        Label2.Caption:='Минимальный элемент массива: ' + IntToStr(a[min])
                        + #13 + 'Номер элемента:'+IntToStr(min);
end;
end.

const
    SIZE=5;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
    a:array[1..SIZE] of integer;
    min:integer;
    i:integer;
begin
 for i:=1 to SIZE do
           a[i]:= StrToInt(StringGrid1.Cells[i-1,0]);
        min:=1;
        for i:=2 to SIZE do
           if a[i] < a[min] then min:=i ;
        Label2.Caption:='Минимальный элемент массива: ' + IntToStr(a[min])
                        + #13 + 'Номер элемента:'+IntToStr(min);
end;