Програмування Pascal

{******************** Печать исходной матрицы к зад. №1 ******************}

procedure printmatrix;

var i,j,x,y:integer;

begin

setcolor (12);

rectangle (49,49,131,131);

for i:=1 to 8 do

begin

for j:=1 to 8 do

begin

x:=41+i*10;

y:=41+j*10;

if matr [i,j]=0 then

setfillpattern (full,white)

else setfillpattern (full,black);

bar (x,y,x+8,y+8);

end;

end;

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