Не выводит двумерный массив в stringgrid

[toha_master]

procedure tform3.avto_zap;
begin
randomize;
for i:=1 to x do
for j:=1 to y do
a[i,j]:=random(10) ;
stringgrid1.Cells[j,i]:=inttostr(a[i,j]);
end;


В чем проблема?

[Stilet]

В отсутствии begin end для циклов.
stringgrid1.Cells[j,i]:=inttostr(a[i,j]); у тебя за пределами обоих циклов.
Смекаешь?