Удалить столбцы из матрицы

[DarkDeidara]

Здрасте)) помогите решить задачу!!
Удалить из матрицы (к примеру 4х4) все столбцы в которых нет нулевого элемента.

uses crt;
const n=4;m=4;
var a:array[1..n,1..m] of integer;
    i,j,k:integer;
begin
     clrscr;
     for i:=1 to n do
     for j:=1 to m do
     begin
           write ('a[',i,',',j,']=');
           readln (a[i,j]);
     end;
     clrscr;
     writeln ('Введённая матрица:');
     for i:=1 to n do
     begin for j:=1 to m do
           write (a[i,j]:4);
           writeln;
     end;
     writeln ('Для продолжения нажмите любую клавишу...');
     readkey;
     writeln;
     for i:=1 to n do
     begin for j:=1 to m do
           if a[i,j]<>0 then
           k:=j;
     end;
     begin
     for i:=1 to n do
     for j:=k to m do
     a[i,j]:=a[i,j+1];
     end;

     writeln ('Полученная матрица:');
     for i:=1 to n do
     begin
          for j:=1 to m-1 do
          write (a[i,j]:4);
          writeln;
     end;
readln;
end.

вот мой НЕ правильный вариант))