pascal 变量矩阵定义

const
st='123456789';
type
xmlnode=array[1..9] of longint;
linenode=array[1..9] of boolean;
squarenode=array[1..3] of linenode;
var
y:char;
sum:integer;
xml:array[1..9] of xmlnode;
linex,liney:array[1..9] of linenode;
square:array[1..3] of squarenode;
procedure init;
var i,j,a,b:integer;temp:char;temp1:integer;
begin
sum:=0;
fillchar(xml,sizeof(xml),0);
fillchar(linex,sizeof(linex),true);
fillchar(liney,sizeof(liney),true);
fillchar(square,sizeof(square),true);
for i:=1 to 9 do
begin
for j:=1 to 9 do
begin
read(temp);
if temp='.' then xml[i][j]:=0
else
begin
temp1:=pos(temp,st);
xml[i][j]:=temp1;
if linex[i][temp1] then linex