Найти минимальный по модулю элемент массива и его номер - Delphi - Ответ 7592572

Unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,math, Vcl.StdCtrls, Vcl.Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  M:array of Real;
  N:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Var
k:integer;
 
begin
N:=StrToint(Edit1.text);
SetLength(M,N);
StringGrid1.RowCount:=N+1;
 for k:=0 to  N do
 begin
   M[k]:= RandomRange(-200,200);
   StringGrid1.Cells[0,k+1]:=Floattostr(M[k]);
 end;
 end;
procedure TForm1.Button2Click(Sender: TObject);
Var
i,MaxI,Element:integer;
Min:real;
begin
Min:=abs(M[0]);
 
If N Mod 2=0 then  MaxI:=(N-2 )Div 2  else  MaxI:=(N-1) Div 2;
 for i:=0  to MaxI do
 begin
  if abs(M[2*i])<=Min then
  begin
   Min:=Abs(M[2*i]);
   Element:=2*i+1;
  end;
 
 
   end;
 ShowMessage('Номер элемента массива:   '+ IntTostr(Element) +'    Модуль значения :  '+ FloatToStr(Min)  );
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8])then Key:=Char(0);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
 
 begin
N:=1;
With stringgrid1 do
 begin
 ColWidths[0]:=80;
 Fixedcols:=0;
 Colcount:=1 ;
 Cells[0,0]:= 'Array  M()';
 end;
end;
end.