for z:=1 to 5 do Смотрю watch показывает декремент ...

[dx+]

В цикле for z:=1 to 5 do когда при тарсировке смотрю watch показывает декремент . Даже r[z] тоже показывает с больших номеров.
А так прога работает равильно.
Где переключить или что делать чтобы при отладке показывало правильно с инкрементом.

[alexBlack]

Это компилятор решает что так будет оптимальней.

Как отключить не знаю. {$O-} не помогает. Разве что сделать явную зависимость от порядка следования. Например в цикле ниже добавляем строку B:=i и порядок в цикле меняется на прямой.

var A:array [1..10] of byte;
    B:integer;
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
   for i:=1 to 10 do begin
     A[i] := 5;
     B := i;
   end;
end;

[dx+]

Думаю что гдето должно быть переключение, сомневаюсь что комуто это нравится.

[dx+]

Во! Заработало
Даже при 'B' never used
Спасибо за помощь alexBlack !