Программа исключения из матриц А и В нулевых строк и столбцов:
Исключение нулевых строк  матрицы А:
у:=0;
for i:=1 to p1 do
begin
for j:=l to p2 do
begin
if  (a[i, j] = '0')  then
y:=y+1
end;
if (y=p2)  then
begin
  p1:=p1-1;
for i1:=i  to p1 do
begin
for j1:=l to p2 do
a:[i1,jl]:=a[i1+l,j1];
end;
end;
y:=0;
 end;
Исключение нулевых столбцов матрицы А:
у:=0;
for i:=1 to p2 do
begin
for j:=1 to p1 do
begin
if (a[j, i]='0') then
y:=y+l;
end;
if (y=p1)  then
begin
p2:=p2-1;
for i1:=1 to p1 do
begin
 for j1:=i  to p2 do 
 a[il,jl]:=a[i1,jl+l];
 end;
 end; 
 y:=0;
 end;

Исключение нулевых строк матрицы B:
у:=0;
for i:=1 to рЗ do
begin
for j:=1 to p4 do
begin
if (b[i,j]='0') then
y:=y+l;
end;
if (y=p4) then
begin
p3:=p3-l;
for il:=i to p3 do
begin
for jl:=l to p4 do
b[il,jl]:=b[il+l, jl];
end;
end;
y:=0;
end;




Исключение нулевых столбцов матрицы B:
у:=0;
for i:=1 to p4 do
begin
for j:=1 to p3 do
begin
if (b[j,i] = '0')   then
y:=y+1;
end;
if  (y=p3)  then
begin
p4:=p4-1;
for i1:=1 to p3 do
begin
for j1:=j to p4 do
b[i1,j1]:= b[i1,j1]:=b[i1,j1+1];
end;
end;
y:=0;
end;