паскаль написать программу которая для прямоугольной целочисленной матрицы 3×4 определяет номер самого левого столбца содержащего только положительные элементы. если такого столбца нет выводится сообщение

const m = 3;n = 4;var a: array[1..m, 1..n] of integer;b: array[1..n] of integer;i,j,k,maxm:integer;begin  for i:=1 to m do begin    for j:=1 to n do begin      write('A[',i,',',j,']= ');      readln (a[i,j]);      if a[i,j]<=0 then b[j]:=-1;    end;  end;   for i:=1 to n do begin    if b[i]=0  then begin      writeln('Столбец №',i,' Все положительные');      break;     end     else      if i=n then writeln('Таких столбцов не было');    end;  for i:=1 to m do begin    for j:=1 to n do write(a[i,j]:5);    writeln;  end;end.Тестовое решение:A[1,1]= 7A[1,2]= 2A[1,3]= 1A[1,4]= -9A[2,1]= -2A[2,2]= 2A[2,3]= 4A[2,4]= 1A[3,1]= 7A[3,2]= 2A[3,3]= 3A[3,4]= 1Столбец №2 Все положительные    7    2    1   -9   -2    2    4    1    7    2    3    1