[Данил]

спасибо всем за внимание)
тупо возможно, но работает.

Global Dim:Int[11,11]
Global cx:Int
Global cy:Int

Global i:Int
Global j:Int
Global i1:Int
Global j1:Int

Global m:Int=2

Global x1,y1,x2,y2

For i = 3 To 5
For j = 3 To 5
Dim[i,j] = 1
Next
Next

For i = 8 To 9
For j = 6 To 9
Dim[i,j] = 1
Next
Next

For i = 1 To 9
Dim[i,0] = 1
Next
dim[3,1] = 1



For i = 0 To 9
For j = 0 To 9

If dim[i,j] = 1 Then
'ЗАФТКСИРОВАЛИ
cx=i
cy=j
x1=cx
While dim[cx,cy]=1
cx:+1

If dim[cx,cy]<>1 Then x2=cx-1
Wend
cx=i
y1=cy
While dim[cx,cy]=1
cy:+1
If dim[cx,cy]<>1 Then y2=cy-1
Wend


For i1 = x1 To x2
For j1 = y1 To y2
dim[i1,j1]=m
Next
Next
m=m+1
End If

Next
Next















For i = 0 To 9
For j = 0 To 9
s:String = s + " " + dim[j,i]
Next
DebugLog s
s=""
Next