Lazarus

procedure TForm1.Button1Click(Sender: TObject);
var d, e, f, g, cg, cd, ce, cf:real;
begin
cd:=StrToFloat(Edit1.Text);
ce:=StrToFloat(Edit2.Text);
cf:=StrToFloat(Edit3.Text);
g:=StrToFloat(Edit4.Text);
d:=round(g/cd*100)/100;
e:=round(g/ce*100)/100;
f:=round(g/cf*100)/100;
Edit5.Text :=FloatToStr(d);
Edit6.Text :=FloatToStr(e);
Edit7.Text :=FloatToStr(f);
end;


Задача:
Мати дала синові певну кількість грошей і попросила купити 3 кг цукру та 2 кг борошна. На гроші що залишилися, мати дозволила синові купити цукерок. Скільки грамів цукерок купить син?

З того коду зробити задачу что я написав в лазарус помогите пж.