Магический квадрат

[VIK_aka_TOR]

делаю курсач по теме головоломки "первые встречные"... столкнулся со следующей проблемой... нужно сформулировать матрицу nxn так, что бы в ней не повторялись значения в стобце и строке... пример:
1 0 2 3
0 3 1 2
2 1 3 0
3 2 0 1
написал следующий алгоритм :

var
i,j,g,temp, kl:integer;
 sloznost:integer;
 a: array [1..7,1..7] of integer;
begin
sloznost:=4;
for i:=1 to sloznost do
 for j:=1 to sloznost do
    a[i,j]:= sloznost+1;
 for i:=1 to sloznost do
 for j:=1 to sloznost do
 begin

 repeat
 kl:=0;
 zer:=0;
    temp:=random(sloznost);
    for g:=1 to sloznost do
    if temp <> a[i,g] then
    kl:=kl+1; 
    for g:=1 to sloznost do
   
    if temp <> a[g,j] then kl:=kl+1; 
                 if kl =sloznost*2 then 
              a[i,j]:= temp;
     until (kl=sloznost*2);
 end;
 writeln (' ');
  for i:=1 to sloznost do
 begin
 for j:=1 to sloznost do
 write(a[i,j],' ');
 writeln(' ');
 
 end;
 end.

и понял чтов нем при значениях n>3 не всегда может создать жанный квадрат... даже при n=3 иногда зацикливается, так как неверная растановка первых элементов... посоветуйте как его усовершенствовать или чем заменить... максимальное значение которое может принимать n<=7... помогите плиз.... в этом единственная проблема в написании курсача....

[VIK_aka_TOR]

переменная zer тут покуда не в причем... думал оформить сие действие через процедуру и загнать в рекурсию... но как то слишком памяти много хавать будит .. при больших размернастях... подскажите что нить плиз...