{$R *.dfm}
const n=20;
type mas=array[1..n] of integer;
function my_min(x:mas):integer;
var i:integer;
begin
result:=x[1];
for i:=2 to n do
if x[i]<result then result:=x[i];
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  colcount:=n;
  defaultcolwidth:=30;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a:mas;
    i:integer;
begin
randomize;
for i:=1 to n do
 begin
  a[i]:=-10+random(21);
  StringGrid1.Cells[i-1,0]:=inttostr(a[i]);
 end;
Label2.Caption:='Минимальный элемент массива='+inttostr(my_min(a));
end;