Нужно составить алгоритм по исходному коду

interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    EditA: TEdit;
    EditB: TEdit;
    EditE: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    StringGrid1: TStringGrid;
    Edit5: TEdit;
    Label5: TLabel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    lbl1: TLabel;
    lbl2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  mas: array of real;
 
implementation
 
{$R *.dfm}
 
uses Math;
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  n, l: integer;
begin
  StringGrid1.Visible:=true;
  Button2.Visible:=true;
  n := StrToIntDef(Edit5.Text, 0)+1;
  SetLength(mas, n);
  StringGrid1.RowCount:=n + 1;
  with StringGrid1 do
  begin
    for l := 1 to n + 1 do
      StringGrid1.Cells[0, l] := inttostr(l);
    Cells[0, 0] := 'Номер а ';
    Cells[1, 0] := 'Значення а ';
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
 Button1.Visible:=true;
 StringGrid1.Visible:=false;
 Label1.Visible:=true;
 Label2.Visible:=true;
 Label3.Visible:=true;
 EditA.Visible:=true;
 EditB.Visible:=true;
 EditE.Visible:=true;
 Button3.Visible:=true;
  for I := 0 to Length(mas) - 1 do
    mas[I] := StrToFloatDef(StringGrid1.Cells[1, I+1], 0);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
  a,x,b,y,e,d: Real;
  function F(x: Real): Real;
  var
    I: Integer;
  begin
  Button2.Visible:=true;
  Edit4.Visible:=true;
  Label4.Visible:=true;
    Result := 0;
    for I := 1 to Length(mas) do
      Result := Result + mas[I-1]*Power(x, Length(mas)-I);
  end;
begin
  a := StrToFloatDef(EditA.Text, 0);
  b := StrToFloatDef(EditB.Text, 0);
  e := StrToFloatDef(EditE.Text, 0);
  repeat
    y := a - f(a) / (f(b) - f(a)) * (b - a) ;
    d := abs(y - a);
    a:=y;
  until (d < e);
  Edit4.Text:=floattostr(y);
end;
 
 
procedure TForm1.Button4Click(Sender: TObject);
var
i,n:integer;
begin
Edit5.Clear;
EditA.Clear;
EditB.Clear;
EditE.Clear;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
form1.Close;
end;
 
end.