デバッグ用にそうなってたとか、あとでいじるつもり かつ PascalユーザーなのでモダンなPascal風に書きたかったとか(でもその場合戻り値用の変数はresultって名前にする)でそう書く場面はオレンジにも無くはないけど、
誰かに示すコードではそんな事する意味無い＞＜；