Где ошибка ?

[XakProg]

Ищу максимальный элемент матрицы, но находит максимальный элемент 1-ой строки. Что не так ? (delphi)

procedure TForm1.Button2Click(Sender: TObject); //Поиск максимального элемента
var
i, j: byte;
begin
max1 :=abs( 0);
for i := 0 to N-1 do

if StringGrid1.Cells[i, j] = '' then
begin
ShowMessage('Массив не полный.');
exit;
end;

max1:=abs(strtoint(stringgrid1.Cells[0,0]));
for i:=1 to 4 do
if abs(strtoint(stringgrid1.cells[i,j]))>max1 then
max1:=abs(strtoint(stringgrid1.Cells[i,j]));
Label2.Caption := IntToStr( max1);
end;

Пожалуйста, оформляйте Ваш код согласно правилам.

[p51x]

Где жы вы ищите? Вы индекс строки хоть раз где-нибудь меняете?