Задача на экзамен

procedure TForm1.Button1Click(Sender: TObject);
var
  S, Sum, Percent, Profit : Extended;
  i, Period : Integer;
begin
  //Годовой процент начислений по вкладу.
  Percent := StrToFloat(Edit1.Text);
  //Начальная сумма по вкладу.
  S := StrToFloat(Edit2.Text);
  //Срок вклада в днях.
  Period := StrToInt(Edit3.Text);
 
  //Процент в виде долей от целой величины.
  Percent := Percent / 100;
  //Сумма с учётом начислений по полным годам.
  Sum := S;
  for i := 1 to Period div 365 do
    Sum := Sum  + Sum * Percent;
  //Сумма с учётом остатка периода (с учётом оставшегося неполного года).
  Sum := Sum + Sum * Percent * (Period mod 365) / 365;
  //Прибыль.
  Profit := Sum - S;
  Edit4.Text := FloatToStr(Profit);
  //Сумма на конец периода.
  Edit5.Text := FloatToStr(Sum);
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  S, Sum, Percent, Profit : Extended;
  i, Period : Integer;
begin
  //Годовой процент начислений по вкладу.
  Percent := StrToFloat(Edit1.Text);
  //Начальная сумма по вкладу.
  S := StrToFloat(Edit2.Text);
  //Срок вклада в днях.
  Period := StrToInt(Edit3.Text);
 
  //Процент в виде долей от целой величины.
  Percent := Percent / 100;
  //Сумма с учётом начислений по полным годам.
  Sum := S;
  for i := 1 to Period div 365 do
    Sum := Sum  + Sum * Percent;
  //Сумма с учётом остатка периода (с учётом оставшегося неполного года).
  Sum := Sum + Sum * Percent * (Period mod 365) / 365;
  //Прибыль.
  Profit := Sum - S;
  Edit4.Text := FloatToStr(Profit);
  //Сумма на конец периода.
  Edit5.Text := FloatToStr(Sum);
end;