Уплотнить заданную матрицу, удаляя из неё строки и столбцы заполненные нулями

type arr=array [1..100,1..100] of real;
var  A:arr;
     i,j,m,n:integer;   
     nomer:integer;
//-------------------------------  -----------------------------------     
procedure plot_po_str(var  P_A:arr; var P_m,P_n:integer);
var ii,jj,k:integer;
    Flag:boolean;
begin
ii:=0;
repeat
ii:=ii+1;
Flag:=true;
  For jj:=1 to P_n do
    If P_A[ii,jj]<>0 then Flag:=false;
  IF Flag then 
    begin
    For k:=ii to p_m do
      p_A[k]:=p_A[k+1];
    p_m:=p_m-1;
    ii:=ii-1;
    end;
Until ii>=P_m;
end;   
//-------------------------------  -----------------------------------  
procedure plot_po_stb(var  P_A:arr; var P_m,P_n:integer);
var ii,jj,k:integer;
    Flag:boolean;
begin
jj:=0;
repeat
jj:=jj+1;
Flag:=true;
  For ii:=1 to P_m do
    If P_A[ii,jj]<>0 then Flag:=false;
  IF Flag then 
    begin
    For k:=jj to p_n do
      for ii:=1 to p_m do
        p_A[ii,k]:=p_A[ii,k+1];
    p_n:=p_n-1;
    jj:=jj-1;
    end;
Until jj>=P_n;
end;     
//-------------------------------  -----------------------------------       
Function poisk(F_A:arr;F_n,F_m:integer):integer;
var ii,jj:integer;
    Flag:boolean;
begin
for ii:=F_M downto 1 do
  begin
  Flag:=false;
  for jj:=1 to F_n do
    IF F_A[ii,jj]>0 then Flag:=True;
  If Flag then  poisk:=ii;
  end;
end;     
//_______________________________________________________
begin
writeln('Введите размер матрицы (MxN)');
readln(m,n);
writeln('Введите элементы матрицы' );
For i:=1 to m do
  For j:=1 to n do
    read(A[i,j]);
    
writeln('Исходная матрица');    
For i:=1 to m do
  begin
  For j:=1 to n do
    write(A[i,j]:5:4,' ');
  writeln;  
  end;     
//-------------------------------    
plot_po_str(A,m,n);
plot_po_stb(A,m,n);
writeln('Результирующая  матрица');    
For i:=1 to m do
  begin
  For j:=1 to n do
    write(A[i,j]:5:4,' ');
  writeln;  
  end;   
Nomer:=poisk(A,m,n);
//Номер находится уже в уплотнённой матрице!
writeln('Номер искомой строки = ',nomer);
end.