Delphi. Проблемы

[Котакот]

Уже 2 часа бьюсь, не могу понять что не так.

Пишу цикл, который бы в границах введенного польз-ем интервала находил мощность двиг-лей и переносил инфу по этим машинам во вторую таблицу.
Вот что накатал:

procedure TForm1.N6Click(Sender: TObject);
var marka,tod : string;
a,c,i,z,r,q,w,oz,a1,a2,pole,arrr : integer;
label m1;

begin
marka:=InputBox('Мощность','Введите интервал','');


oz := pos('-',marka);
a1 := StrToInt(copy(marka,1,oz-1));
a2 := StrToInt(copy(marka,oz+1,length(marka)));
ShowMessage('a1= '+IntToStr(a1)+'  a2= '+IntToStr(a2));

// Делим интервал на два числа. На этом этапе всё работает.


c:=Tablo1.RowCount;
z:=1;
r:=1;
q:=c+1;
w:=0;



for arrr:=a1 to a2 do begin // на промежутке от 1-го числа до конеч-го
while w<c do begin // пока переменная меньше числа строк в таблице
a:=Tablo2.RowCount;
tod:=Tablo1.Cells[2,z];
if tod='' then goto m1; // выйти из цикла, когда натыкаемя на пустую ячейку
pole:=StrToInt(tod);
if arrr=pole then begin // если число и значение в ячейке совпадают
Tablo2.Cells[0,r]:=Tablo1.Cells[0,z];
Tablo2.Cells[1,r]:=Tablo1.Cells[1,z];
Tablo2.Cells[2,r]:=Tablo1.Cells[2,z];
Tablo2.Cells[3,r]:=Tablo1.Cells[3,z];
Tablo2.Cells[4,r]:=Tablo1.Cells[4,z];
// перенесли всю строку во 2-ую таблицу
r:=r+1;
Tablo2.RowCount:=a+1;
end;
w:=w+1;
z:=z+1;
end;
end;
m1:
end;

Вот. Почему-то for не меняет число arrr. Если в интервале первое число совпадает с мощ-ю какой-то из машин, его находит, но дальше не идёт. Т.е. arrr не меняется. Где косяк? Я спать хочу

[Котакот]

ап (буквыбуквыбуквы)