ПОиск максимального элемента

[oleg866]

Добрый день нужно написать программу для поиска максимального массива,написал выдает ошибкуroject raised exception class eaccessviolation with message...Помогите,что не так? вот код:

var
 
  Form1: TForm1;
   type mas=array of array of integer;
     var   a,b:mas;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
var
i,j,max:integer;
begin
 
 
Randomize;
setlength (a,5,5);
setlength (b,5,5);
for i:=0 to 4 do
 begin
 
 end;
for j:=0 to 4 do
 begin
   max:=0;
 end;
 a[i,j]:=random(20);
 if max<a[i,j] then
 begin
 a[i,j]:=b[i,j];
 stringgrid2.Cells[i,j]:=Inttostr(b[i,j]);
 end;
stringgrid1.Cells[i,j]:=Inttostr(a[i,j]);
 
end;
    end.

[phomm]

Насколько я понял задание, сделать надо вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, max: integer;
begin
  Randomize;
  setlength(a, 5, 5);
  setlength(b, 5, 5);
  for i := 0 to 4 do
    for j := 0 to 4 do
    begin
      a[i, j] := random(20);
      stringgrid2.Cells[i, j] := '';
    end;
  max := a[0, 0];
  for i := 0 to 4 do
    for j := 0 to 4 do
    begin
      if max < a[i, j] then
      begin
        max := a[i, j];
        stringgrid2.Cells[i, j] := Inttostr(max);
      end;
      stringgrid1.Cells[i, j] := Inttostr(a[i, j]);
    end;
end;

[oleg866]

Сообщение от phomm

Насколько я понял задание, сделать надо вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, max: integer;
begin
  Randomize;
  setlength(a, 5, 5);
  setlength(b, 5, 5);
  for i := 0 to 4 do
    for j := 0 to 4 do
    begin
      a[i, j] := random(20);
      stringgrid2.Cells[i, j] := '';
    end;
  max := a[0, 0];
  for i := 0 to 4 do
    for j := 0 to 4 do
    begin
      if max < a[i, j] then
      begin
        max := a[i, j];
        stringgrid2.Cells[i, j] := Inttostr(max);
      end;
      stringgrid1.Cells[i, j] := Inttostr(a[i, j]);
    end;
end;

Большое спасибо!