i:Integerで
i:=i-1;というように
変数に変数を代入することは出来ないのでしょうか。
var
a:integer;
begin
a := 10;
a := a - 1;
ならば、aには9が入ります。
var
a, b: integer;
begin
b := a - 1;
a := 10;
としても、bに9が入るわけではありません。
# それ以前にエラーになりますが
ポインタを使用すれば、
var
a: integer;
b: ^integer;
begin
b := @a;
a := 10;
とすれば、bに10が入るし、その後に
a := 9;
とすれば、bに9が入ります。
逆に、
b^ := 8;
とすれば、aに8が入ります。
a,bをかき分けていますが、b := @a;とした後の、aの値と、b^の値は同じ値です。
i := i - 1; みたいな単純な文なら、
IncやDecを使うという方法もできます。
変数iを1足すならInc(i)
1引くならDec(i)
コードの大幅削減になると思います(^^ゞ