Программа вывода на экран исходных матриц А и В:

Close(f);
  Writeln('Zadani  matrici   takih  razmerov');
  Writeln;
  WriteLn('Matriza A  (',p1,'x',p2,')  ==>');
writeLn;
 for i:=1 to p1 do
begin
for j:=1 to p2 do
begin
Writeln(a[i,j]:3);
end;
writeLn;
end;
WriteLn('Matriza B (',p3,'x',p4,')  ==>');
writeLn;
for i:=1 to p3 do
begin
for j:=1 to p4 do
begin
writeln(b[i,j] :3);
end;
WriteLn;
end;








Программа исключения из матриц А и В нулевых строк и столбцов:
Исключение нулевых строк  матрицы А:
у:=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;




Программа вывода на экран выходных матриц А и В (после исключения нулевых строк и столбцов):

WriteLn('Posle ydaleniya nylevih ctrok i  stolbcov,matrici  stali  takih');
writeln('razmerov:');
WriteLn;
WriteLn('Matrica A razmerom ==>',p1,'x',p2);
WriteLn;
for i:=1 to p1 do
begin
for j:=1 to p2 do
begin
if (a[i,j]='1')  then
Write('a',i,j,'     ')
else Write('   ',a[i,j],'        ');
end;
WriteLn;
end;
WriteLn;
WriteLn('Matrica B  razmerom ==>', p3 ,'x',p4) ;
WriteLn;
for i:=1 to p3 do
begin
for j:=1 to p4 do
begin
if (b[i,j]='1')  then
Write('b' ,i, j, '      ')
else Write('   ',b[i,j],'       ');
end;
WriteLn;
end;