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

uses crt;
type matrix=array [1..50,1..50] of integer;
procedure Udal(var n,m:integer;var a:matrix);
var i,j,k,t,p:integer;
begin
{Udalenie stroki s 0}
i:=1;
while i<=n do
   begin
     k:=0;
     for j:=1 to m do
     if a[i,j]=0 then k:=k+1;
     if k=m then
        begin
          for t:=1 to m do
          for p:=i to n-1 do
          a[p,t]:=a[p+1,t];
          n:=n-1;
        end
     else i:=i+1;
   end;
{Udalenie stolbca s 0}
j:=1;
while j<=m do
   begin
     k:=0;
     for i:=1 to n do
     if a[i,j]=0 then k:=k+1;
     if k=n then
        begin
          for t:=1 to n do
          for p:=j to m-1 do
          a[t,p]:=a[t,p+1];
          m:=m-1;
        end
     else j:=j+1;
  end;
end;
var n,m,i,j:integer;
    a:matrix;
begin
clrscr;
write('Количество строк n=');readln(n);
write('Количество столбцов m=');readln(m);
Writeln('Введите ',n*m,' элементов матрицы:');
For i:=1 to n do
For j:=1 to m do
read(a[i,j]);
readln;
clrscr;
Writeln('Исходная матрица:');
for i:=1 to n do
   begin
     for j:=1 to m do
     write(a[i,j]:4);
     writeln;
   end;
Udal(n,m,a);
writeln('Результат:');
for i:=1 to n do
   begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
   end;
readln
end.

uses crt;
type matrix=array [1..50,1..50] of integer;
function Poloz(mt:matrix;x,y:byte):byte;
var i,j,ip,k:byte;
begin
ip:=0;
for i:=1 to x do
 begin
  k:=0;
  for j:=1 to y do
  if mt[i,j]>0 then
   begin
    k:=1;
    break;
   end;
  if k=1 then
   begin
    ip:=i;
    break;
   end;
 end;
Poloz:=ip;
end;
var n,m,i,j:integer;
    a:matrix;
begin
clrscr;
write('Количество строк n=');readln(n);
write('Количество столбцов m=');readln(m);
Writeln('Введите ',n*m,' элементов матрицы:');
For i:=1 to n do
For j:=1 to m do
read(a[i,j]);
readln;
clrscr;
Writeln('Исходная матрица:');
for i:=1 to n do
   begin
     for j:=1 to m do
     write(a[i,j]:4);
     writeln;
   end;
write('Номер первой строки с положительным элементом=',Poloz(a,n,m));
readln
end.