5114     for i := max(x - 1, 0) to min(x + 1, LAND_WIDTH-1) do

  5114     for i := x - 1 to x + 1 do

  5115     begin

  5115         for j := y - 1 to y + 1 do 

  5116         for j := max(y - 1, 0) to min(y + 1, LAND_HEIGHT-1) do 

  5116         begin

  5117         begin

  5117         if (i < 0) or 

  5118             if ((Land[j, i] and $FF00) = 0) then

  5118            (i > LAND_WIDTH - 1) or 

  5119             begin

  5119            (j < 0) or 

  5120                 result := result + 1;

  5120            (j > LAND_HEIGHT -1) or 

  5121             end;

  5121            ((Land[j, i] and $FF00) = 0) then

  5122         end;

  5122            begin

  5123     end;

  5123            result := result + 1;

  5124            end;

  5125         end;