Поменять местами первый и минимальный элементы массива.

unit ZadanieGUIpr034unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;
const
  maxelem = 15; {Максимальное количество элементов в массиве}
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    StaticText1: TStaticText;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    a: array [1..maxelem] of integer;
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
 
 
{ TForm1 }
 
 
procedure TForm1.Button1Click(Sender: TObject);
{Процедура-обработчик события "OnClick" кнопки "Заполнить"}
var
   i: byte;
begin
  for i:= 1 to maxelem do
    begin
      a[i]:= 10 + random(80+1);  {Заполнение массива случайными числами}
      StringGrid1.Cells[i,1]:= IntToStr(a[i]); {Вывод элементов массива в компонент StringGrid}
      StringGrid1.Cells[i,0]:= IntToStr(i);    {Вывод индексов в шапку компонента StringGrid}
    end;
  Label1.Caption:= 'Исходный массив:';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
{Процедура-обработчик события "OnClick" кнопки "Вычислить"}
var
  i: byte;
  indmin: integer;
  tmp: integer;
begin
  indmin:= 1;        {Начальная установка индекса минимального элемента}
  for i:= 1 to maxelem do
    if a[i] < a[indmin] then  {Условие для поиска минимального по значению элемента}
       indmin:= i;            {Нахождение индекса}
  tmp:= a[1];      {Обмен значениями элементов}
  a[1]:= a[indmin];
  a[indmin]:= tmp;
  for i:= 1 to maxelem do
    StringGrid1.Cells[i,1]:= IntToStr(a[i]); {Вывод элементов массива в компонент StringGrid}
  Label1.Caption:= 'Измененный массив. Элементы с индексом 1 и индексом '+ IntToStr(indmin) +' поменялись местами.';
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i: byte;
begin
  Randomize;
  StringGrid1.ColCount:= maxelem + 1; {Установка количества столбцов в трех компонентах StringGrid}
  for i:= 1 to maxelem do
    StringGrid1.Cells[i,0]:= IntToStr(i); {Заполнение шапки столбцов индексами}
end;
 
end.