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

program kkk;
uses crt;
var count,i:integer;
    st,buf:string;
    slova:array[1..100]of string;
begin
 clrscr;
 readln(st);
 count:=1;
 repeat
  if (st[1]=' ') or (length(st)=1) then while st[1]=' ' do delete(st,1,1)
  else
  begin
   while (st[1]<>' ') and (length(st)>1) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
  slova[count]:=buf;
  buf:='';
  inc(count);
  end;
 until (length(st)=1) and (length(buf)=0);
 
 for i:=1 to count-1 do if i mod 2=0 then
 begin
  for j:=length(slova[i]) downto 1 do write(slova[i][j]);
  write(' ');
 end; 
 readln;
end.

uses crt;
type matrix=array [1..50,1..50] of integer;
procedure Vvod(n,p:integer;var a:matrix);
var i,j:integer;
begin
Writeln('Введите элементы массива:');
For i:=1 to n do
For j:=1 to p do
Readln(a[i,j]);
clrscr;
Writeln('Исходная матрица:');
for i:=1 to n do
   begin
     for j:=1 to p do
     write(a[i,j]:4);
     writeln;
   end;
end;
Procedure vyvod(n,p:integer;var a:matrix);
var i,j:integer;
begin
writeln('Результат:');
for i:=1 to n do
   begin
    for j:=1 to p do
    write(a[i,j]:4);
    writeln;
   end;
readln
end;
procedure U_s_s_0 (var n:integer;var p:integer; var a:matrix);
var i,j,k,t,m,g:integer;
begin
{Udalenie stroki s 0}
i:=1;
while i<=n do
   begin
     k:=0;
     for j:=1 to p do
     if a[i,j]=0 then k:=k+1;
     if k=p then
        begin
          for t:=1 to p do
          for m:=i to n-1 do
          a[m,t]:=a[m+1,t];
          n:=n-1;
        end
     else i:=i+1;
   end;
end;
procedure U_st_s_0 (var n:integer;var p:integer; var a:matrix);
var i,j,k,t,m,g:integer;
begin
{Udalenie stolbca s 0}
j:=1;
while j<=p 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 m:=j to p-1 do
          a[m,t]:=a[m,t+1];
          p:=p-1;
        end
     else j:=j+1;
  end;
end;
var n,p:integer;
    a:matrix;
begin
clrscr;
write('n=');readln(n);
write('p=');readln(p);
Vvod(n,p,a);
U_s_s_0 (n,p,a);
U_st_s_0 (n,p,a);
vyvod(n,p,a);
end.