[Мишка-90]

Всем доброго времени суток.
обращаюсь к вам с просьбой направить в нужном направлении.
вот кусочек кода

Код:

d[81] := 0;
       Begin
        for z := 81 + 2 to 91 do
      for i:=5 to StringGrid8.RowCount-32 do d[z] := d[z] + StrToFloat(StringGrid8.Cells[200  ,i]);
     for j := 198 + 2 to 210 do
       for u := 25 + 1 to 30 do
      StringGrid8.Cells[j , u]:= FloatToStr(d[z]);
       End;

мне необходимо чтобы код:

Код:

for i:=5 to StringGrid8.RowCount-32 do d[81] := d[81] + StrToFloat(StringGrid8.Cells[200  ,i]);
     for j := 198 + 2 to 210 do
      StringGrid8.Cells[200 , 26]:= FloatToStr(d[81]);

выполнился 5 раз с шагом 2. вроде бы всё просто, но компилятор говорит, что я пытаюсь выполнить цикл, который уже завершился... не знаю. уже даже не уверен что первый код, который выложил - это лучший вариант из тех которые были.. мозг выключился..
пожалуйста, помогите..