проверить, является квадратная матрица латинским квадратом?

[+Юлия GaL+]

Меня интересует, существуют еще какие-либо другие способы проверки кв.матрицы на латинский квадрат. У меня есть такая проверка:

var a:array[1..5,1..5] of integer;
i,j,k,n,l:integer;
begin
write('n=');
readln(n);
 for i:=1 to n do
   for j:=1 to n do
   Read(a[i,j]);
k:=1;
for i:=1 to n do
for j:=1 to n-1 do
if ((a[i,j]=a[i,j+1]) or (a[i,j]=a[j+1,i])) then
begin
k:=n;
n:=i-1;
l:=0;
end  else
begin
k:=k+1;
l:=1;
end;
if l=1 then writeln('LAT') else
Writeln('NE LAT');
      end.

Подскажите еще идеи пожалуйста, даже можно не программы, а просто на словах. Спасибо

[TinMan]

Юля, должен тебя огорчить: твоя программа неправильная..
Квадрат:
1 2 3
3 1 2
2 3 1
- она НЕ считает латинским.

Running "c:\...\pf111104_julia_gal\pf111104_julia_gal_tm.exe "
n=3
1
2
3
3
1
2
2
3
1
NE LAT

Кроме того, ты не проверяешь верхний предел, так что квадрат
1 2
3 4
- будет латинским.
И там много ошибок чисто паскалевких.. Если хочешь, я расскажу подробнее.