Имеется массив NxM, заполненный 0 и 1. Необходимо написать процедуру, которая удалит из массива все столбцы, в которых сумма элементов равна 0. Если таких столбцов нет, вывести соответствующую надпись — Pascal(Паскаль)

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.