Сформировать массив B, элементы которого удовлетворяют условию

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids, StdCtrls, Math;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
uses unit2;
procedure TForm1.Button1Click(Sender: TObject);
const
  c=2.5;
  d=10.3;
  n=10;
var
  a,b:array[1..n] of real;
  i,k:integer;
begin
  k:=1;
  for i:=1 to n do
    begin
      a[i]:=exp(3.5*i)*0.5*power(10,-2.5);
      if (a[i]>=c) and (a[i]<d) then
        begin
         b[k]:=a[i];
         inc(k);
        end;
      end;
  for i:=1 to n do
    StringGrid1.Cells[i-1,0]:=FloatToStrF(b[k],ffFixed,8,8);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2.Show;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;
 
end.

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids, StdCtrls, Math;
 
const
  n = 10;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
uses
  unit2;
 
 
procedure TForm1.Button1Click(Sender: TObject);
{Процедура-обработчик события "OnClick" кнопки "Вычислить"}
const
  c = 2.5;
  d = 10.3;
var
  a,b: array[1..n] of real;
  i,k: integer;
begin
  k:= 0;
  for i:= 1 to n do
    begin
      a[i]:= exp(3.5*i)*0.5*power(10,-2.5);
      if (a[i] >= c) and (a[i] < d) then
        begin
         inc(k);
         b[k]:= a[i];
        end;
      end;
  for i:= 1 to n do
    StringGrid1.Cells[i,1]:= FloatToStrF(a[i],ffGeneral,4,2);
  StringGrid2.ColCount:= k+1;
  for i:= 1 to k do
    begin
      StringGrid2.Cells[i,0]:= IntToStr(i);
      StringGrid2.Cells[i,1]:= FloatToStrF(b[i],ffGeneral,4,2);
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
{Процедура-обработчик события "OnClick" кнопки "Вторая форма"}
begin
  Form2.Show;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
{Процедура-обработчик события "OnClick" кнопки "Закрыть"}
begin
  Close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  StringGrid1.ColCount:= n+1;
  for i:= 1 to n do
    StringGrid1.Cells[i,0]:= IntToStr(i); {нумерация элементов массива}
end;
 
end.