ЗАПОЛНЕНИЕ МАССИВА ПО УКАЗАННОЙ ТРАЕКТОРИИ

[_-DAFNA-_]

Дан квадратный числовой массив размером 8x8. Заполнить его числами от 1 до N2 по указанной траектории:m[1,1] =1; m[1,2] =2; m[2,1]=3; m[2,2]=4; m[3,1]=5 и т.д.
подскажите что у меня не так???
запускается, потом выдает ошибку

procedure TForm1.Button1Click(Sender: TObject);
var i,n,j:integer;
mas:array[0..7,0..7] of integer;
begin
 for i:=0 to 7 do
 for j:=0 to 7 do

 mas[i,j]:=StrToInt(StringGrid1.Cells[i,j]);
n:=1;
 begin
 for i:=0 to 7 do
 for j:=0 to 7 do
 begin
 mas[i,j]:=(i-1)*n+j;
 end;
for i:=0 to 7 do
for j:=0 to 7 do
StringGrid1.Cells[i,j]:=IntToStr(mas[i,j]);
end;
end;

end.