Сформировать вектор, каждый элемент которого равен сумме элементов соответствующей строки двумерного массива - Pascal ABC

Формулировка задачи:

Сформировать одномерный массив, каждый элемент которого равен сумме элементов соответствующей строки двумерного массива, меньших данного числа.

Решение задачи: «Сформировать вектор, каждый элемент которого равен сумме элементов соответствующей строки двумерного массива»

Листинг программы

{ Сформировать одномерный массив, каждый элемент которого равен сумме элементов 
соответствующей строки двумерного массива, меньших данного числа. }
const
  m = 4;
  n = 6;
 
var
  a: array [1..m, 1..n] of real;
  b: array [1..n] of real;
  
  
  i, j: integer;
  sum, x: real;
 
begin
  Writeln('Введите число: ');
  readln(x);
  Randomize;  
  Writeln('Исходный массив: ');
  for i := 1 to m do
  begin
    sum := 0;
    for j := 1 to n do
    begin
      a[i, j] := -n div 2 + random * 50;
      Write(a[i, j]:8:2);
      if a[i, j] < x then 
        sum := sum + a[i, j];
    end;
    b[i] := sum;
    writeln;
  end;
  Writeln('Одномерный массив: ');  
  for i := 1 to m do
    write(b[i]:8:2);
end.

Объяснение кода листинга программы

В начале кода объявляются две переменные: m и n, которые представляют собой длину исходного двумерного массива и количество строк в нем соответственно.
Затем объявляется переменная a, которая представляет собой исходный двумерный массив.
Далее объявляются две переменные: i и j, которые будут использоваться для прохода по строкам массива.
После этого объявляется переменная sum, которая будет использоваться для хранения суммы элементов строки.
В цикле for i := 1 до m do происходит заполнение массива a. Для каждой строки (i-й строке) массива a вычисляется сумма элементов этой строки.
Если сумма элементов строки меньше числа x, то она добавляется к переменной sum.
После завершения цикла for i := 1 до m do переменная sum записывается в переменную b.
В конце кода выводится на экран исходный двумерный массив и одномерный массив, полученный из него.