Если тело цикла содержит несколько операторов (составной оператор), то в каком из операторов цикла не обязательно ставить операторные скобки

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
  var m,n:integer;
  Write('Ввведите число строк и столбцов: ');
  Read(m,n);
  Writeln('Исходный массив');
  var L:=MatrixRandom(m,n,-99,99);
  var s:=0;
  for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do begin
      Write(L[i,j]:4);
      if L[i,j]<0 then s+=L[i,j]
      end;
    Writeln
  end;
  Swap(L[0,0],L[m-1,n-1]);
  Writeln('Результирующий массив');
  for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do Write(L[i,j]:4);
    Writeln
  end;
  Writeln('Сумма отрицательных элементов равна ',s)
end.

Тестовое решение:
Ввведите число строк и столбцов: 5 8
Исходный массив
  59  28 -26 -31  -2 -75   6  24
 -41 -50 -34 -31  58  49 -14  44
 -82  15 -47  67   1 -91 -47  -6
 -36  73 -41  87  15  61  87 -36
   3 -19  34 -27  72 -49  45 -69
Результирующий массив
 -69  28 -26 -31  -2 -75   6  24
 -41 -50 -34 -31  58  49 -14  44
 -82  15 -47  67   1 -91 -47  -6
 -36  73 -41  87  15  61  87 -36
   3 -19  34 -27  72 -49  45  59
Сумма отрицательных элементов равна -854

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]= 7
A[1,2]= 2
A[1,3]= 1
A[1,4]= -9
A[2,1]= -2
A[2,2]= 2
A[2,3]= 4
A[2,4]= 1
A[3,1]= 7
A[3,2]= 2
A[3,3]= 3
A[3,4]= 1
Столбец №2 Все положительные
    7    2    1   -9
   -2    2    4    1
    7    2    3    1