Исправьте программу

[Student30]

Я тут программу написал чтоб она вставляла столбец из нулей,смещая остальные вправо.
Исправьте программу,чтоб она всталяла перед всеми столбцами, в которых нет отрицательных элементов, второй столбец.
Просто я тока с сентября начал изучать программирование и мне не совсем понятна предыдущая программа
Помогите пожалуйста!!!

program lr6;
var mas:array[1..100,1..100] of integer;
k1,i,j,m,n:integer;
begin
writeln('Введите размерность матрицы: ');
write('n= ');readln(n);
write('m= ');readln(m);
randomize;
for i:=1 to n do
for j:=1 to m do begin
mas[i,j]:=random(30)-10;
end;
writeln('Матрица*');
for i:=1 to n do begin
for j:=1 to m do begin
write(mas[i,j]:5);
end;
writeln;
end;
begin
for i:=1 to n do
for j:=m downto k1+1 do
mas[i,j+1]:=mas[i,j];
for i:=1 to n do
mas[i,k1+1]:=0;
end;
writeln('Измененная матрица*');
for i:=1 to n do begin
for j:=1 to m do begin
write(mas[i,j+1]:5);
end;writeln;
end;
readln;
end.

From Stilet: Не лезь в чужую тему!

[XeruH]

Не проверял.

program lr6;

var
  mas:array[1..100,1..100] of integer;
  k1,i,j,m,n:integer;
  b:boolean;

begin
  writeln('Введите размерность матрицы: ');
  write('n= ');
  readln(n);
  write('m= ');
  readln(m);
  randomize;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      mas[i,j]:=random(30)-5;
    end;
  end;

  writeln('Матрица*');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      write(mas[i,j]:5);
    end;
    writeln;
  end;

  j:=1;
  while j<=m do
  begin
    b := false;
    i := 1;
    for i := 1 to n do
    begin
      if mas[i,j] < 0 then
      begin
        b := true;
        break;
      end;
    end;
    if b then
    begin
      for k1 :=m downto j do
      begin
        for i := 1 to n do
        begin
          mas[i,k1+1]:=mas[i,k1];
          mas[i,k1]:=0;
        end;
      end;
      inc(m);
      inc(j);
    end;
    inc(j);
  end;

  writeln('Измененная матрица*');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      write(mas[i,j]:5);
    end;
    writeln;
  end;
  readln;
end.

[ROMA2PVT]

не

 if b then

а

if not(b) then

и сказано второй столбец вставлять а не столбец из нулей