Поиск минимального значения элемента и определение порядкового номера наименьшего элемента

procedure TForm1.Button1Click(Sender: TObject);
var n,i:integer;
    a:array[0..100,0..100] of integer;
begin
n:=strtoint(edit1.text);
stringgrid1.ColCount:=n;
stringgrid1.Visible:=true;
Randomize;
for i:=0 to n-1 do
   begin
   a[i,0]:=random(20)-10;
   stringgrid1.cells[i,0]:=inttostr(a[i,0]);
   end;
 
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
a:array[1..100] of integer;
    min:integer;
    i:integer;
begin
 for i:=1 to 100 do
           a[i]:= StrToInt(StringGrid1.Cells[i-1,0]);
        min:=1;
        for i:=2 to 100 do
           if a[i] < a[min] then min:=i ;
        Edit2.Text:='Минимальный элемент массива: ' + IntToStr(a[min])
                        + #13 + 'Номер элемента:'+IntToStr(min);
 
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a: array of integer;
  min: integer;
  i: integer;
begin
  TryStrToInt(Edit1.Text, i); // Получение количества элементов. Если не получилось преобразовать, то возвращает 0
  SetLength(a, i);
 
  if i = 0 then begin
    Label1.Caption := 'Задайте корректное количество элементов массива.';
    Exit;
  end;
 
  // Заполнить массив
  Randomize;
  for i := 0 to High(a) do // Пройтись по всему массиву
    a[i] := Random(20) - 10; // Внести случайные числа
 
  // Поиск минимального элемента
  min := 0;
  // Проходим до конца массива и ищем среди них минимальный
  for i := 1 to High(a) do
    if a[i] < a[min] then
      min := i;
 
  Label1.Caption := 'Минимальный элемент массива: ' + IntToStr(a[min])
                    + #13#10 + '. Номер элемента: '+IntToStr(min);
end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    a: array of integer;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  s: string;
begin
  TryStrToInt(Edit1.Text, i); // Получение количества элементов. Если не получилось преобразовать, то возвращает 0
  SetLength(a, i);
 
  if i = 0 then begin
    Label1.Caption := 'Задайте корректное количество элементов массива.';
    Exit;
  end;
 
  // Заполнить массив и вывести в Edit, хоть это и не совсем правильно
  s := '';
  Randomize;
  for i := 0 to High(a) do begin // Пройтись по всему массиву
    a[i] := Random(20) - 10; // Внести случайные числа
    s := s + IntToStr(a[i]) + ' ';
  end;
  Edit2.Text := s;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  min: integer;
  i: integer;
begin
  if Length(a) = 0 then begin // Если массив не задан, то вывести сообщение и выйти из процедуры
    Label1.Caption := 'Создайте массив нажатием кнопки "Создать массив"!';
    Exit;
  end;
 
  // Поиск минимального элемента
  min := 0;
  // Проходим до конца массива и ищем среди них минимальный
  for i := 1 to High(a) do
    if a[i] < a[min] then
      min := i;
 
  Label1.Caption := 'Минимальный элемент массива: ' + IntToStr(a[min])
                    + #13#10 + 'Номер минимального элемента: '+IntToStr(min);
end;
 
end.