Помогите с программой.

[Arshavin10]

Заполнить матрицу заданного размера M(k,l) числами 1,2,3,4 так, чтобы по горизонтали, вертикали и диагонали не было одинаковых рядом стоящих чисел.

[Gongled]

Умнее ничего придумать не смог :)

program pr;
uses CRT;
const
n = 7;
m = 6;
type
AR2 = array[1..n,1..m] of integer;
AR1 = array[1..4] of boolean;
var
a : AR2;
b : AR1;
i, j, temp, z : integer;
k : boolean;

// Понулить массив элементов
procedure null_array(var x : AR2);
var
e, r : integer;
begin
     for e:=1 to n do
         for r:=1 to m do
             x[e,r] := 0;
end;

begin
clrscr;
randomize;
null_array(a);

// Пока все переменные не использовались
for i:=1 to 4 do
begin
     b[i] := false;
end;

temp := 0;

for i:=1 to n do
begin
    for j:=1 to m do
    begin
         // Если ячейка не занята числом
         if (a[i,j]=0) then
         begin
              // Генерировать новое число, чтобы избежать повтор
              repeat
                    a[i,j] := random(4)+1;
                    temp := a[i,j];
              until not b[temp];

              // Число использовано
              b[temp] := true;
              
              // Располагать числа, чтобы не повторялись
              if (i+2<=n) then a[i+2,j] := a[i,j];
              if (j+2<=m) then a[i,j+2] := a[i,j];
         end
         else
         begin
              // Дублируем значения
              if (i+2<=n) then a[i+2,j] := a[i,j];
              if (j+2<=m) then a[i,j+2] := a[i,j];
         end;
    end;
end;

// Выводим массив
for i:=1 to n do
begin
     for j:=1 to m do
     begin
          write(a[i,j]:4);
     end;
writeln;
end;
readln;
end.