Перед первым столбцом, содержащим только положительные элементы, вставить столбец из единиц

for j:=1 to n do
begin
   key:=true;
   for i:=1 to m do
      if matr[i,j]<=0 then 
         begin
            key:=false;
            break;
         end;
   if (key:=true)and(j<>1) then {контролируем выход за пределы массива}
      begin
          for g:=1 to m do
             matr[g,j]:=1;
          exit;
      end;

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,j1:byte;
    f,b:boolean;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax-1,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20)-5;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
{ищем первый столбец из положительных}
j1:=0;
j:=1;
f:=false;
while (j<=n)and not f do
 begin
  b:=true;
  i:=1;
  while(i<=m) and b do
  if a[i,j]<=0 then b:=false
  else i:=i+1;
  if b then
   begin
    f:=true;
    j1:=j;
   end;
  if not f then j:=j+1;
 end;
if not f then write('В матрице нет столбца только из положительных элементов')
else
 begin
  writeln('Номер первого столбца из положительных элементов=',j1);
  {вставляем столбец из 1} 
  n:=n+1;
  for j:=n downto j1+1 do
  for i:=1 to m do
  a[i,j]:=a[i,j-1];
  for i:=1 to m do
  a[i,j1]:=1;
  writeln('Вставка столбца из 1:');
  for i:=1 to m do
   begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
   end;
 end;
readln
end.