Латинский Квадрат Опции

[tricker]

Люди помогите !!!
Мне срочно до завтра необходимо написать программу «Латинский квадрат». Суть в том что если Вы вводите число 5 то строится матрица  вида

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

И так далее, я написал половину программы и у меня строится матрица вида,

1 2 3 4 5
2 3 4 5 1
3 4 5 0 2
4 5 0 0 3
5 0 0 0 4

а дальше не могу написать . Я могу выслать текст программы что бы кто – нибудь дописал мне ее, т.к. я не могу ее доделать.

[-=BR@BUS=-]

Вот чё в итоге у меня получилось, но программа всегда отвечает НЕТ

Program Lat_kv;
Uses crt;

type

  vector = array[1 .. 100] of integer;

var
  elems: vector;
 n,value, i, j, k, s, sum, check: integer;
  ok, is_col: boolean;
  A:Array[1..100,1..100] of integer;
begin
 clrscr;
 Writeln ('Введите ранг матрицы');
 readln (n);
 Writeln ('Введите элементы матрицы через <ENTER>');
 For i:=1 to n do
 For j:=1 to n do
 readln (a[i,j]);
  s := 0;
  for i := 1 to n do s := s + i;
  ok := true;
  for is_col := false to true do begin
    i := 1;
    while (i <= n) and ok do begin
      sum := 0;
      for k := 1 to n do elems[k] := 0;      
      for j := 1 to n do begin
        if is_col then value := a[j, i]
        else value := a[i, j];
        sum := sum + value;
        if (value > 0) and (value <= n) and (elems[value] = 0) then
          inc(elems[value])
        else ok := false;
      end;
      ok := (ok and (sum = s));
      inc(i);
    end;
  end;
  if ok then writeln('Yes')
  else writeln('No');
readln;
end;
end.

ПОЧЕМУ???

Сообщение отредактировано: -=BR@BUS=- - 21.12.2006 19:45