Sudoku Array of Array vergleichen

[Marcel2906]

Guten Morgen,

ich bräuchte mal einen Denkanstoß, ich komm einfach nicht mehr weiter.
Und zwar habe ich ein Sudokufeld (Array 0..8 of Array 0..8)
Nun habe ich 2 Routinen geschrieben zum Prüfen ob eine Zahl in einer Reihe oder in einer Spalte doppelt sind :

Bsp. Code zum Prüfen in einer Reihe:

Delphi-Quellcode:

Var
   x, y, i, j: integer;
Begin
   x := 0;
   y := 0;
   i := 1;
   Repeat
      Repeat
         Repeat
            If (aSudoku[x, y] = aSudoku[x, y + i]) And (aSudoku[x, y] > 0) Then Begin
               ShowMessage('Eine Zahl in Reihe ' + IntToStr(x + 1) + ' ist doppelt');
               i := i + 1;
            End Else
               i := i + 1;
         Until (y + i) >= 8;
         y := y + 1;
         i := 1;
      Until y >= 8;
      y := 0;
      x := x + 1;
      i := 1;
   Until x >= 9;

Nun stellt sich mir die Frage, wie Prüfe ich ob in einem Feld 3x3 eine Zahl doppelt vorkommt ??