sum := sum + 1;
i := i + 1;
漏れ天才。