各位前輩: 想請教一個計算的問題,100減1080 ,每減一百我就加一,所以答案會是１０剩下８０,請問這要如何撰寫,謝謝

procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c : integer;
begin
a := 1080;
b := 100;
c := 0;
while a >= b do
begin
c := c 1;
a := a - b;
end;
ShowMessage(IntToStr(c) '/' IntToStr(a));
end;

procedure TForm1.Button3Click(Sender: TObject);
var
a,b : integer;
begin
a := 1080;
b := 100;
ShowMessage(IntToStr(Floor(a/b)) '/' IntToStr((a Mod b)));
end;

Fishman