diff --git "a/Excercise/\353\252\250\353\223\21012/Exercise3/Unit_ch12_3.pas" "b/Excercise/\353\252\250\353\223\21012/Exercise3/Unit_ch12_3.pas"
index 288f65f..05d6392 100644
--- "a/Excercise/\353\252\250\353\223\21012/Exercise3/Unit_ch12_3.pas"
+++ "b/Excercise/\353\252\250\353\223\21012/Exercise3/Unit_ch12_3.pas"
@@ -32,7 +32,7 @@ procedure TForm1.Button1Click(Sender: TObject);
 begin
   Cnt := 0;
   s := Edit1.Text;
-  for i := 0 to Length(s) do
+  for i := 1 to Length(s) do
     if s[i] =  '.' then
        Cnt := Cnt + 1;
    ShowMessage(InTtoStr(Cnt));