Удалить из массива все столбцы, в которых сумма элементов равна 0

procedure kill(mass:mas);
var i,j,a:integer;
begin
a:=0;
for i:= 1 to m do
begin
for j:= 1 to n do
begin
a:=mass[j,i]+a;
if a<>0 then writeln(mass[i,j]);
end;
writeln;
end;
end;

k:=M;
  for j:=1 to M do
    Begin
      sum:=0;
      for i:=1 to N do
        sum:=sum+a[i,j];
      if sum=0 then
        Begin
        st:=j;
        for i:=1 to N do
          for j:=st to M do
            Begin
              a[i,j]:=a[i,j+1];
              dec(k);
            end;
        end;
    end;
   for i:=1 to N do
     Begin
       for j:=1 to k do
         Write(a[i,j]:2);
       Writeln;
     end;

program test;
const n=5;
const m=5;
 
type mass=array [1..n,1..m] of integer;
 
   var
      i,j : integer;
      mas:mass;
      
procedure del(a:mass);
        var i,j,sum,l:integer;
              summ:array [1..m] of integer;
        begin
         l:=0;
         for j:= 1 to m do
           begin
             sum:=0;
             for i:= 1 to n do
               sum:=sum+a[i,j];
             summ[j]:=sum;
           end;
           for i:=1 to n do
            begin
              for j:=1 to m do
                begin
                  if summ[j]<>0 then
                    write(a[i,j]);
                end;
              writeln;
            end;
         end;
 
begin
for i:= 1 to n do
begin
for j:= 1 to m do
if i mod 2 = 0 then mas[j,i]:=1
else mas[j,i]:=0;
end;
 
for i:= 1 to n do
begin
for j:= 1 to m do
write(mas[i,j]);
writeln;
end;
writeln(mas[1,1]);
writeln(mas[2,1]);
writeln(mas[3,1]);
 
 
 
writeln;
del(mas);
readln
end.