Как изменить код!

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Spin, Grids, StdCtrls, ExtCtrls, Buttons,Math;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Memo1: TMemo;
    StringGrid1: TStringGrid;
    SpinEdit1: TSpinEdit;
    BitBtn1: TBitBtn;
    StringGrid2: TStringGrid;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Edit4: TEdit;
    procedure SpinEdit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure StringGrid2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1; i,n:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
Stringgrid1.ColCount:=Spinedit1.Value+1;
for i:=1 to Spinedit1.Value do
Stringgrid1.Cells[i,0]:= inttostr(i);
   begin
  Stringgrid2.ColCount:=Spinedit1.Value+1;
for i:=1 to Spinedit1.Value do
Stringgrid2.Cells[i,0]:= inttostr(i)
end;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Stringgrid1.Cells[1,0]:='1';
Stringgrid1.Cells[0,1]:='A=';
  Stringgrid2.Cells[1,0]:='1';
Stringgrid2.Cells[0,1]:='B=';
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
randomize;
for i:=1 to Spinedit1.Value do
   begin
Stringgrid1.Cells[i,1]:= floattostr(RandomRange (-10,10));
end;
 
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
for i:=1 to SpinEdit1.Value do
begin
StringGrid1.Cells [i,1]:='';
StringGrid2.Cells [i,1]:='';
end;
SpinEdit1.Value:=1;
end;
 
procedure TForm1.BitBtn3Click(Sender: TObject);
var A,B: Array of real;
max,min,l,Pb,p,Pa:real;
k:Integer;
begin
n:=SpinEdit1.Value;
  for i:=1 to n do
 if stringgrid1.cells[i,1]='' then
  begin
    showmessage('Pusto');
    exit;
  end;
 
Setlength(A,n);
Setlength(B,n);
for i:=0 to n-1 do
  begin
    A[i]:=Strtofloat(StringGrid1.Cells [i+1,1]);
    B[i]:=Strtofloat(StringGrid1.Cells [i+1,1]);
  end;
min:=A[0];
for i:=1 to n-1 do
  if A[i]<= min then
    begin
      min:=A[i];
      k:=i;
    end;
max:=A[0];
for i:=1 to n-1 do
  if A[i]>max then max:=A[i];
Edit1.Text:='min='+floattostr(min);
Edit2.Text:='k='+floattostr(k+1);
Edit3.Text:='max='+floattostr(max);
for i:=k+1 to (n-1) do
  if i mod 2=0 then
    B[i]:=A[i]*max
  else  B[i]:=A[i];
for i:=0 to n-1 do
  Stringgrid2.Cells[i+1,1]:=FloatToStr(B[i]);
l:=1;
for i:=0 to n-2 do
  if b[i]<b[i+1] then l:=l+1;
if l=n then
  begin
    p:=1;
    for i:=0 to n-1 do
      p:=p*a[i];
    if (p<0) and (n mod 2=0) then
      begin
        Edit4.Text:='Произведение A отрицательно,среднегеометрического не существует ';
        Exit;
      end
      else
        if (p<0) and (n mod 2=1) then
        begin
          Pa:=-power(Abs(p),(1/n));
          Edit4.Text:='В возрастающая РА='+floattostr(Pa);
        end;
    begin
      Pa:=Power(p,(1/n));
      Edit4.Text:='В возрастающая РА='+floattostr(Pa);
    end;
  end
  else
    begin
      p:=1;
      for i:=0 to n-1 do p:=p*b[i];
        if (p<0) and (n mod 2=0) then
          begin
            Edit4.Text:='Произведение В отрицательно,среднегеометрического не существует ';
            Exit;
          end
          else
            if (p<0) and (n mod 2=1) then
              begin
                Pb:=-power(Abs(p),(1/n));
                Edit4.Text:='В НЕвозрастающая РВ='+floattostr (Pb) ;
              end;
      begin
       Pb:=Power(p,(1/n));
        Edit4.Text:='В НЕвозрастающая РВ='+floattostr (Pb);
      end;
    end;
 
 
end;
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if not(key in ['0'..'9','-',#8]) then
key:=#0;
end;
 
procedure TForm1.StringGrid2KeyPress(Sender: TObject; var Key: Char);
begin
   if not(key in ['0'..'9','-',#8]) then
key:=#0;
end;
 
 
end.