数组的问题

[zxx_0405]

procedure Tinpic.Button6Click(Sender: TObject);
var
i,j,m:integer;
begin
writetype:=true;
begin
for i := 1 to 8 do
for j := 1 to 8 do
begin
if Feight[j][i] then
featruestr[i,j] := 1 //featruestr[1..8,1..8]
else
featruestr[i,j] := 0;
mapmanage.NumberPatternRecord[strtoint(edit2.Text)][strtoint(edit1.Text)][i] [j]:=featruestr[i,j];//其实这个时候是edit2.Text,edit1.Text和featruestr[1..8,1..8]分别赋给四位数组的各维

end;
end;
end;

在另一单元这样定义
var
NumberPatternRecord: array [0..9,0..19,0..8,0..8] of integer;
请问上边那个循环赋值是对的不？不对，应该怎么改？
还有我想把那个四维的数组的每一维里的数都单个取出来该怎么取？
谢谢