Делфи!Задача по двумерным массивам!

[pocha]

Задали двумерный массив А [1 .. 4,1 .. 4]. Определить максимальный элемент массива. я вот пыталась сделать, но не выходит
procedure TForm1.BitBtn1Click(Sender: TObject);

var
a:array [1..4,1..4] of integer;
i,j,n,f,max:integer;
s:real;
begin
StringGrid1.SetFocus;
for i:=1 to 4 do
for j:=1 to 4 do

if Length(StringGrid1.Cells[i-1,j-1])<>0

then a[i,j]:=StrToInt(StringGrid1.Cells[i-1,j-1])

else a[i,j]:=0;
begin
for i:=1 to 4 do
for j:=1 to 4 do
if a[i,j] > max then max:= a[i,j];

end;
label1.caption:=floattostr(max);


end;

[cyber_NINJA]

Значение max у вас по умолчанию равно 0. Сделайте хотя-бы max:=a[1,1];. Это раз.
Что именно не выходит? Что выводит прога? Что говорит Делфи и т.д. Здесь екстрасенсов нет. Это два.

[Антон Лысенко]

Мне пришли сигналы с космоса и я увидел что делфи пишет "max не инициализировано"!!!

[KooKish]

Ага, стоило бы Вам задать начальное значение max, а то Делфи обращаясь к данной области памяти находит в ней мусор, и в 99% случаев будет выдавать ошибку.

[pocha]

Спасибо) Уже все работает