"Латинский" квадрат. Паскаль

[SmartStas]

Построить и вывести на экран "латинский" квадрат - таблицу, состоящую из n различных чисел, всех по n раз расположенных так, что в каждой строке и столбце каждое число встречается только один раз.
ВОт мой код:

Uses Crt;
Const n=10;
Type matrica=array[1..n,1..n] of integer;
Var m:matrica;
     i,j,k:integer;

Function Chek(var m:matrica;n,k,i1,j:integer):boolean;
Var i:integer;
BEgin
  chek:=true;
  For i:=1 to i1 do
  If m[i,j]=k then chek:=false;{проверка на встречаемость в столбце}
  if m[i1,j]<>0 then chek:=false;{проверка на занятость места елемента}
End;

Begin
  ClrScr;
  Randomize;
  For k:=1 to n do begin
    For i:=1 to n do begin
       repeat
       j:=random(n)+1;
       until chek(m,n,k,i,j);
    m[i,j]:=k; 
    end;
  End;
  For i:=1 to n do
  For j:=1 to n do 
  write(m[i,j]:3);
readln;
End.

Подскажите где я ошибся, программа иногда работает, но часто просто виснет =((

[Plague]

вот фрагмент который формирует латинский квадрат

for i:=1 to n do m[1,i]:=i;
for i:=2 to n do
  for j:=1 to n do
    m[i,j]:=m[i-1,j] mod n+1;

[SmartStas]

Спасибо, конечно, большое, но меня интересует случайное формирование такого квадрата,например:
1 3 2 5 4
2 5 1 4 3
4 1 5 3 2
3 2 4 1 5
5 4 3 2 1

[Plague]

а это разве не оно?

[SmartStas]

нет он выводит упорядоченно:
1 2 3 4 5
2 3 4 5 1
3 4 5 1 2
4 5 1 2 3
5 1 2 3 4

[Buratino]

Ошибка такая:
1 2 0
2 1 0
0 0 1
Двойку в третью строчку уже не поставит...

[Buratino]

Uses Crt;
Const n=9;
Type matrica=array[1..n,1..n] of integer;
Var m:matrica;
     i,j,k:integer;
     a:boolean;

Function Chek(var m:matrica;n,k,i1,j:integer):boolean;
Var i:integer;
BEgin
  chek:=true;
  For i:=1 to i1 do
  If m[i,j]=k then chek:=false;{проверка на встречаемость в столбце}
  if m[i1,j]<>0 then chek:=false;{проверка на занятость места елемента}
End;

function PROVERKA(var m:matrica;n,k,i1:integer):boolean;
 Var v,i:integer;
     a:boolean;
BEgin
  PROVERKA:=false;
  for v:=1 to n do
  begin
  a:=true;
  For i:=1 to i1 do
  If m[i,v]=k then a:=false;
  if m[i1,v]=0 then if a then Proverka:=true;
  end;
End;


Begin
  ClrScr;
  Randomize;

  For k:=1 to n do begin
    For i:=1 to n do begin
       repeat
       if not proverka(m,n,k,i) then
        begin
             For i:=1 to n do
             For j:=1 to n do
             m[i,j]:=0;
             i:=1;
             k:=1;
        
          end;
       j:=random(n)+1;
       until chek(m,n,k,i,j);

    m[i,j]:=k;
    end;
  End;
  
  For i:=1 to n do
  For j:=1 to n do
  begin

  write(m[i,j],' ');
  if j=n then writeln();
  end;
readln;

End.

Тупо, но работает!

[SmartStas]

Сообщение от Buratino

Ошибка такая:
0 0 1
2 1 0
1 2 0
Двойку в третий столбик уже не поставит...

по моему она должна была сначала поставить двойку в первой строке.
А за исправление спасибо большое, задача довольно интересная просто=)

[Plague]

строки то можно перетасовать в матрице.
вот реализация:

var m:array[1..100,1..100] of integer;
    k:array[1..100] of integer;
    i,j,n,a,b,t:integer;
begin
  readln(n);
  for i:=1 to n do m[1,i]:=i;
  for i:=2 to n do
    for j:=1 to n do
      m[i,j]:=m[i-1,j] mod n+1;
  randomize;
  for t:=1 to 1000 do
    begin
      a:=random(n)+1;
      b:=random(n)+1;
      k:=m[a];
      m[a]:=m[b];
      m[b]:=k;
    end;
  for i:=1 to n do
    begin
      for j:=1 to n do write(m[i,j]:3);
      writeln;
    end;
end.

[SmartStas]

k:=m[a];
m[a]:=m[b];
m[b]:=k;

выдает: "type mismatch"
НАсколько я понял, после перетасовки не будет выполняться условие:

"расположенных так, что в каждой строке и столбце каждое число встречается только один раз."