program zad;
uses crt;
type h=array[1..10,1..10] of integer;
var a:h; i,j,n,m:integer;
   procedure deletecolumn(var a:h; var n,m:integer; t:integer);
   var i,j:integer;
   begin
   for j:=t to m-1 do
      for i:=1 to n do a[i,j]:=a[i,j+1] ; dec(m);
   end;
Begin
clrscr;
n:=5;m:=5;
randomize;
   for i:=1 to n do begin
      for j:=1 to m do begin
   a[i,j]:=random(15)-3;write(a[i,j]:5); end; writeln;end;
j:=1;
      while j<=m do begin
   i:=1;
      while (i<=n) and (a[i,j]<>0) do inc(i);
      if i>n then deletecolumn(a,n,m,j) else inc(j);
   end;
   writeln('');
   for i:=1 to n do begin
      for j:=1 to m do begin
   write(a[i,j]:5);end; writeln;end;
readln;
End.