Методика підрахунку прямокутників різної форми

end;

{*************** Процедура подщета кол-ва прямоуг. ********************}

procedure count;

var i,j,num,ti,tj:integer;

yes,ok:boolean;

st:string;

begin

num:=0;

yes:=false;

ok:=false;

for j:=1 to 8 do

begin

for i:=1 to 8 do

begin

if matr[i,j]=0 then

begin

num:=num+1;

tj:=j;

ti:=i;

repeat

yes:=false;

repeat

matr [ti,tj]:=1;

inc (ti);

if matr[ti,tj]<>0 then yes:=true;