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

const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k:integer;
begin
randomize;
repeat
writeln('Введите размеры матрицы от 1 до ',nmax);
readln(m,n);
until(m in [1..nmax])and(n in [1..nmax]);
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
j:=1;
while j<=n do //проверякм все столбцы
 begin
  k:=0;
  i:=1;
  while (i<=m)and(k=0) do//ищем в них отрицательный
  if a[i,j]<0 then k:=1 //если есть,дальше не ищем
  else inc(i);
  if k=1 then //нашли
   begin
    if j=n then dec(n)//если он последний, обрезаем
    else
     begin
      for k:=j to n-1 do//сдвигаем столбцы срава на данный столбец
      for i:=1 to m do
      a[i,k]:=a[i,k+1];
      dec(n); //меньшаем количество столбцов
     end;
   end
  else inc(j);//если нет отрицательнх, на 1 вперед
 end;
writeln('n=',n);
writeln('Удаление столбцов с отрицатльными');
if n=0 then write('Все столбцы удалены')
else
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end.

const nmax=19;
var
  a: array [1..nmax,1..nmax] of Integer;
  m, n, i, j, k: Integer;
begin
  Randomize;
  repeat
    Write('Введите размеры матрицы от 1 до ',nmax,': '); ReadLn(m,n);
  until (m in [1..nmax]) and (n in [1..nmax]);
  for i:=1 to m do for j:=1 to n do a[i,j]:=-10+Random(50);
  WriteLn('A =');
  for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:4); WriteLn;
  end;
  k:=0;
  for j:=1 to n do begin
    i:=m; while (i>=1) and (a[i,j]>=0) do Dec(i);
    if i<1 then begin { столбец без отрицательных }
      Inc(k); if k<j then for i:=1 to m do a[i,k]:=a[i,j];
    end;
  end;
  n:=k;
  if n=0 then WriteLn('n=',n)
  else begin
    WriteLn('A''=');
    for i:=1 to m do begin
      for j:=1 to n do Write(a[i,j]:4); WriteLn;
    end;
  end;
end.