[Oleg]

Это так(никакой 5 не вылезает) ?

Код:

var i,j,s,ss:integer;
arr:array[0..4,0..4]of integer;
begin
for i:=0 to 4 do begin
for j:=0 to 4 do begin
arr[i,j]:=StrToInt(StringGrid1.Cells[j,i]);//Заполняем массив
ss:=0;
s:=0;
end;
end;
for i:=0 to 4 do begin
for j:=0 to 4 do begin
if arr[i,j]=arr[i,j+1] then
ss:=ss+1;
if ss>s then
s:=ss;
ss:=0;
end;
end;
end;