Поиск прямоугольников в матрице

program name;
uses crt;
var f1,f2: Text; a:array[1..40,1..40] of integer; i,j,n:integer;
begin
     clrscr;
       assign(f1,'1.txt');
       assign(f2,'2.txt');
     reset(f1);
     read(f1,n);
       i:=1;j:=1;
     for i:=1 to n do begin
          for j:=1 to n do begin
               read(f1,a[i,j]);
          end;
     end;
 
     close(f1);
     readkey;
end.

k:=0; {счётчик прямоугольников}
for i:=1 to n do {перебираем все клетки}
for j:=1 to n do
if a[i,j]=1 then {если встречаем закрашенную, то она будет верхним левым углом прямоугольника}
begin
 inc(k); {+1 прямоугольник}
 ii:=i; {в ii и jj будет хранить координаты правого нижнего угла}
 jj:=j;
 while a[i,jj]=1 do inc(jj); {ищем эти края по горизонтали}
 while a[j,ii]=1 do inc(ii); {и веритикали}
 for k:=i to ii do {стираем найденный прямоугольник, так как его уже мы проверили}
 for j:=j to jj do a[k,j]:=0;
end;

program name;
uses crt;
var f1,f2: Text; a:array[1..41,1..41] of integer; i,j,n,k,ii,jj:integer;
begin
clrscr;
assign(f1,'1.txt');
assign(f2,'2.txt');
reset(f1);
read(f1,n);
i:=1;j:=1;
for i:=1 to n do begin
for j:=1 to n do begin
read(f1,a[i,j]);
end;
end;
 k:=0;
for i:=1 to n do
for j:=1 to n do
[B]if a[i,j]=1 then[/B]
begin
 inc(k);
 ii:=i;
 jj:=j;
 while a[i,jj]=1 do inc(jj);
 while a[j,ii]=1 do inc(ii);
 for k:=i to ii do
 for j:=j to jj do a[k,j]:=0;
end;
close(f1);
writeln (k);
readkey;
end.

reset(f1);
readln(f1,n);
for i:=1 to n do
begin
 for j:=1 to n do read(f1,a[i,j]);
 readln(f1);
end;

for l:=j to jj do a[k,l]:=0;

uses crt;
var f1: Text; a:array[1..41,1..41] of integer;
i,j,n,k,c,ii,jj,l:integer;
begin
 clrscr;
 assign(f1,'1.txt');
 reset(f1);
 readln(f1,n);
 for i:=1 to n do
 begin
  for j:=1 to n do read(f1,a[i,j]);
  readln(f1);
 end;
 close(f1);
 
 c:=0;
 for i:=1 to n do
 for j:=1 to n do
 if a[i,j]=1 then
 begin
  inc(c);
  ii:=i;
  jj:=j;
  while a[i,jj]=1 do inc(jj);
  while a[ii,j]=1 do inc(ii);
  for k:=i to ii do
  for l:=j to jj do a[k,l]:=0;
 end;
 writeln(c);
end.