Someone

begin
{Hier werden alle Zahlen ausgeschlossen die in der Zeile bereits stehen}
for ze:=1to 9 do
begin
 zahl:= output[hoehe,ze];  {hier wird die Zahl fÔøΩr die ÔøΩberprÔøΩfung aus den Array gelesen}
 Pruef(Menge,zahl);
end;
{Hier werden nun alle Zahlen ausgeschlossen die in der Spalte bereits stehen}
for sp:=1 to 9 do
begin
 zahl:= output[sp,breite];
 Pruef(Menge,zahl);
end;
{Hier werden nun noch alle Zahlen ausgeschlossen die im Neunerblock bereits vorhanden sind}
{Mit der folgenden 8 Zeilen wird bestimmt in welchem 9er Block sich das Feld befinde, vom ersten Feld diese Blocks aus staret dann die Überprüfung}
ze:= (breite div 3)*3 ;
if (breite mod 3) <> 0 then
ze:= ze+3;
ze:=ze-2;
sp:= (hoehe div 3)*3 ;
if (hoehe mod 3) <> 0 then
sp:= sp+3;
sp:=sp-2;
{Der eigentliche Ausschluss fÔø&#937;r den Neunerblock}
for sp:=sp to sp+2 do
begin
 copyze:=ze;
 for copyze:=copyze to copyze+2 do
 begin
  zahl:=output[sp,copyze];
  Pruef(Menge,zahl);
 end;
end;
end;