[bullet92820]

Код:

procedure TForm1.Button3Click(Sender: TObject);

var a:array[1..8,1..8]of integer;
begin

  For i:=1 to 8 do
    for j:=1 to 8 do begin
        StringGrid1.ColCount := 8;
StringGrid1.RowCount := 8;
        Stringgrid1.Cells[i,j]:=Inttostr(a[i,j]);;
    end;
end;

Admin: Следим за тегами, иначе последуют санкции!

Для этого случая работает, когда там задаю массив так var a:array[1..8,1..8]of integer;
то после (arr,n,m) выскакивает ошибка