Помогите допилить на паскале. SOS!!!

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Label3: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
Label7: TLabel;
Button1: TButton;
Label8: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Label9: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e,cc, dd, ff, kk, kon:integer;
begin
b:=StrToInt(edit1.text);
d:=StrToInt(edit2.text);
c:=StrToInt(edit3.text);

if RadioButton1.Checked then begin
if d=0 then
a:=0;
if d=1 then
a:=200;
if d=2 then
a:=400;

if c=0 then
e:=0;
if c=1 then
e:=100;
if c=2 then
e:=200;

cc:=(a+e)*b;
end;

if RadioButton2.Checked then begin
if d=0 then
a:=0;
if d=1 then
a:=400;
if d=2 then
a:=600;

if c=0 then
e:=0;
if c=1 then
e:=300;
if c=2 then
e:=500;

cc:=(a+e)*b;
end;

if RadioButton3.Checked then begin
if d=0 then
a:=0;
if d=1 then
a:=600;
if d=2 then
a:=800;

if c=0 then
e:=0;
if c=1 then
e:=500;
if c=2 then
e:=700;

cc:=(a+e)*b;
end;
if checkbox2.Checked then
dd:=7500; //от смерти в год
if checkbox3.Checked then
ff:=3500; // ДТП в год
if checkbox4.Checked then
kk:=300; // клещ

kon:=cc+dd+ff+kk ;
label8.caption:='Стоимость страхового полиса = ' + inttostr(kon) + ' рублей';
end;

end.

В строчку 42 нужно добавить

сделать_всё_как_надо(на_пятерку);