Function Verschmutzerstufe1(Feld:TFeld; S,Z:Integer):boolean;
var i,j,k:integer;
Begin
	i:=s-1;
	j:=z-1;
	for i to s+1 do begin
		for j to z+1 do begin
			if Feld[i,j] = 1 then
				k:= k+1
		end;
	end;
	if k > 2 then
		Verschmutzerstufe1:=true;
	else
		Verschmutzerstufe1:=false;
End;