Определите значение переменной b после выполнения фрагмента алгоритма, записанного в виде блок-схем​

//PascalABC.Net 3.0, сборка 1064
type
  IntArray = array of integer;

var
  rows, cols: integer;
  M: array of IntArray;

begin
  Write('Количество строк и столбцов матрицы: '); Read(rows, cols);
  var Avg: array of double := new double[cols];
  M := new IntArray[rows];
  SetLength(Avg, cols);
  for var i := 0 to rows - 1 do
  begin
    M[i] := ArrRandom(cols, -25, 25);
    M[i].Println(#9)
  end;
  for var j := 0 to cols - 1 do
    Avg[j] := Range(0, rows - 1).Select(x -> M[x, j]).Average;
  Writeln('Наименьшее среднее по столбцам равно ', Avg.Min)
end.

Тестовое решение:
Количество строк и столбцов матрицы: 5 8
-22    -8    12    7    3    -18    8    22
2    -16    17    -13    -10    0    -19    2
20    -21    -6    13    2    -20    25    24
-7    -3    -2    -10    -2    8    18    23
4    -21    -8    8    23    -12    -13    -5
Наименьшее среднее по столбцам равно -13.8

Сорян, когда из паскаля скопировал, абзацы некоторые удалились,а так всё работает. Делать нечего прост сегодня :)
 
var s,i,min,max,m,n: integer;
var a: array[1..15] of integer;
begin
for i:=1 to 15 do begin 
 a[i]:=random(100);
   write(a[i],' ')   end; 

writeln;  m:=a[1];n:=a[1];

for i:=1 to 15 do begin 
  if m<a[i] then begin
     m:=a[i]; min:=i; end; 
  if n>a[i] then begin
      n:=a[i]; max:=i; end; end; if max<min then begin s:=max;max:=min;min:=s; end;

for i:=1 to ((abs(max-min)) div 2 +1) do begin   
s:=a[min];   a[min]:=a[max];   a[max]:=s;   min:=min+1;   max:=max-1;                                    end; for i:=1 to 15 do    write(a[i],' ');     end.