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

uses crt;
type
mas=array[1..50,1..50]of integer;
var n,m,i,j:integer;
a: mas;
 
procedure inp( n,m: integer; var a: mas);
var i, j: integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(50)-40;
end;
 
procedure print( n,m: integer; var a: mas);
var i, j: integer;
begin
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
end;
writeln;
end;
 
procedure del (n:integer;var m:integer;var a:mas);
var i, j,k,p: integer;
begin
for j:=m downto 1 do
 begin
  k:=0;
  for i:=1 to m do
  if a[i,j]<0 then k:=k+1;
  if k=n then{если в столбце все отрицательные}
   begin
    if j=m then m:=m-1{если столбец последний}
    else{иначе}
     begin
      for i:=1 to n do
      for p:=1 to m-1 do
      a[i,p]:=a[i,p+1];
      m:=m-1;
     end;
    end;
  end;
end;
begin
clrscr;
write('Kolichestvo strok n=');readln(n);
write('Kolichestvo stolbcov m=');readln(m);
writeln('      Ishodnaya matrica');
inp(n,m,a);
print(n,m,A);
del(n,m,A);
writeln('      Udalenie stolbcov');
print(n,m,A);
readln
end.

uses crt;
type
mas=array[1..50,1..50]of integer;
procedure inp(var a: mas;var n,m:integer);
var i, j: integer;
begin
write('Kolichestvo strok n=');readln(n);
write('Kolichestvo stolbcov m=');readln(m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(50)-40;
end;
 
procedure print( var a: mas;n,m:integer);
var i, j: integer;
begin
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
end;
writeln;
end;
 
procedure del (n:integer;var m:integer;var a:mas);
var i,j,k,p,q: integer;
begin
for j:=m downto 1 do
 begin
  k:=0;
  for i:=1 to n do
  if a[i,j]<0 then k:=k+1;
  if k=n then{если в столбце все отрицательные}
   begin
    if j=m then m:=m-1{если столбец последний}
    else{иначе}
     begin
      for q:=1 to n do
      for p:=j to m-1 do
      a[q,p]:=a[q,p+1];
      m:=m-1;
     end;
    end;
  end;
end;
var a:mas;
    n,m:integer;
begin
clrscr;
randomize;
writeln('      Ishodnaya matrica');
inp(a,n,m);
print(A,n,m);
del(n,m,A);
writeln('      Udalenie stolbcov');
print(A,n,m);
readln
end.