[Dastik]

Добрый вечер господа.
Есть код:

var i,j,s,ss:integer;
arr:array[0..4,0..4]of integer;
begin
for i:=0 to 4 do
for j:=0 to 4 do
arr[i,j]:=StrToInt(StringGrid1.Cells[j,i]);//Заполняем массив
{счетчики i,j идут соответственно от нуля к четырем}
ss:=0;
s:=0;
for i:=0 to 4 do //А вот здесь они считаются от ПЯТИ к НУЛЮ!
begin
for j:=0 to 4 do //И здесь тоже.
if arr[i,j]=arr[i,j+1] then
ss:=ss+1;
if ss>s then
s:=ss;
ss:=0;
end;

Программирую на Дельфи уже достаточно давно, а такого еще ни разу не
видел.
Что подскажите?