Удалить все столбцы, в которых нет нулевого элемента (Исправьте ошибку)

uses crt;
const
n=8;
m=5;
var a: array [1..n,1..m] of integer;
i,j,k,g,x:integer;
begin
   Writeln('Èñõîäíûé ìàññèâ: ');
   For i:=1 to n do begin
     For j:=1 to m do begin
     randomize;
     a[i,j]:=random(10)-5;
     write(a[i,j]:2);
     end;
   writeln;
   end;
   Writeln;
   Writeln;
   For i:=1 to n do
   begin
   x:=0;
     For j:=1 to m do
     begin
     if a[j,i]=0 then inc(x);
     end;
   if x>0 then begin
       For g:=1 to n do begin
          gotoxy(i*2-1,g+10);
          write(a[g,i]:2);
          Writeln;
          end;
     end;
   end;
end.

uses crt;
const
n=8;
var a: array [1..n,1..5] of integer;
    m,i,j,k,x:integer;
begin
randomize;
m:=5; //кол. столбцов меняется, нельзя константой
Writeln('Исходный массив: ');
For i:=1 to n do
 begin
  For j:=1 to m do
   begin
    a[i,j]:=random(10)-5;
    write(a[i,j]:3);
   end;
  writeln;
 end;
j:=1; //начнем с первого столбца
while j<=m do//пока не конец
 begin
  x:=0;
  For i:=1 to n do
  if a[i,j]=0 then inc(x);
  if x=0 then //если нет нолей
   begin
    if j=m then m:=m-1//если последний, обрезаем
    else //если не последний
     begin
      for k:=j to m-1 do
      for i:=1 to n do //сдвигаем влево на 1
      a[i,k]:=a[i,k+1];
      m:=m-1; //обрезаем
     end;
   end
  else j:=j+1//если есть ноли, дальше
 end;
if m=0 then write('Все столбцы удалены')
else
 begin
  writeln('Удаление столбцов без нолей');
  For i:=1 to n do
   begin
    for j:=1 to m do
    write(a[i,j]:3);
    writeln
   end;
 end;
 
end.

uses crt;
const n=8;
type mtr=array [1..n,1..5] of integer;
procedure matrix(var a:mtr;var m:integer);
var i,j:integer;
begin
m:=5;
Writeln('Исходный массив: ');
For i:=1 to n do
 begin
  For j:=1 to m do
   begin
    a[i,j]:=random(10)-5;
    write(a[i,j]:3);
   end;
  writeln;
 end;
end;
procedure udal(var a:mtr;var m:integer);
var i,j,k,x:integer;
begin
j:=1; //начнем с первого столбца
while j<=m do//пока не конец
 begin
  x:=0;
  For i:=1 to n do
  if a[i,j]=0 then inc(x);
  if x=0 then //если нет нолей
   begin
    if j=m then m:=m-1//если последний, обрезаем
    else //если не последний
     begin
      for k:=j to m-1 do
      for i:=1 to n do //сдвигаем влево на 1
      a[i,k]:=a[i,k+1];
      m:=m-1; //обрезаем
     end;
   end
  else j:=j+1//если есть ноли, дальше
 end;
if m=0 then write('Все столбцы удалены')
else
 begin
  writeln('Удаление столбцов без нолей');
  For i:=1 to n do
   begin
    for j:=1 to m do
    write(a[i,j]:3);
    writeln
   end;
 end;
end;
var a:mtr;
    m:integer;
begin
randomize;
matrix(a,m);
udal(a,m);
end.