Проблема с циклом

[_serj_dev]

Здравствуйте участники форума и его гости.
Вот в этом коде:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var m : array [0..9] of integer; m1: array [0..9] of integer;
    i, a, b, j: integer;
begin
 a:=0;
  for i:=0 to 9 do
    begin
       m[i]:=StrToInt(Memo1.Lines.Strings[i]);
       a:=a+m[i];
    end;
 b:= a div 10;
    for j:=0 to 9 do
    begin
       m1[j]:=m[j]-b;
       Memo2.Lines.Add(IntToStr(m1[j]));
    end;
end;

возникает маленькая проблема. во втором цикле переменной j начинают присваиваться значения в обратном порядке. Подскажите пожалуйста, с чем это может быть связано?

[zubr]

_serj_dev, это особенность борландского дебагера, работает все правильно, но индексацию в цикле For отладчик может показывать в обратном порядке. Отключи оптимизацию, перекомпили проект - и тогда отладчик должен показывать индкс цикла For корректно.