Судоку, проблема с массивом Опции

[marwell]

Появилась надобность написать программу генерации таблиц судоку (думаю, всем известна эта игра)
в инете нашел описание одного метода http://malover.ucoz.ru/sudoku/
естественно, выбрал третий способ.
но есть проблема, в 3 пункте при получении второй строки мне надо собрать один массив из трех.Никак не могу придумать, как это сделать в цикле

var i,x,j:integer;
    mas1,mas2,mas3,mas4,mas5,mas6,mas7,mas8,mas9:array [1..9] of integer;
    A,B,C:array [1..3] of integer;
    flag:boolean;

procedure Ran;  // генерирую число
begin
Randomize;
x:=Random(9)+1;
end;

procedure Fla;    //проверка строки(для избежания повтора)
begin
for j:=1 to 9 do
if mas1[j]=x then flag:=False;
end;

begin
Flag:=True;
i:=1;
While i<=9 do begin
Ran;
Fla;
if Flag=True then begin
                  mas1[i]:=x; i:=i+1; end
             else Flag:=True;
end;
for i:=1 to 3 do begin
if i=1 then begin
A[i]:=mas1[1];
B[i]:=mas1[4];
C[i]:=mas1[7]; end;
if i=2 then begin
A[i]:=mas1[2];
B[i]:=mas1[5];
C[i]:=mas1[8]; end;
if i=3 then begin
A[i]:=mas1[3];
B[i]:=mas1[6];
C[i]:=mas1[9]; end;
end;
...
end. 

буду благодарен совету

Сообщение отредактировано: marwell - 28.11.2010 19:35