Получить вектор, элементы которого равны суммам элементов соответствующих строк матрицы - Turbo Pascal

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

Пожалуйста, помогите с решением. Дана матрица A(n на m) целых чисел. Получить вектор, элементы которого равны суммам элементов соответствующих строк матрицы. Если сумма заданной величины, элементы матрицы в данной строке обнулить, в противном случае сменить их знак на противоположный. Заранее благодарен

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

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

For i:=1 to n do
    For j:=1 to m do
       if s[i] > C then
              a[i,j]:=0
       else
              a[i,j]:= -a[i,j];

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

В данном коде используется два вложенных цикла. Первый цикл проходит по строкам матрицы s, а второй цикл проходит по столбцам матрицы a. Внутри второго цикла проверяется условие s[i] > C, где i - это номер текущей строки, а C - некий порог. Если условие выполняется, то в соответствующую ячейку матрицы a записывается значение 0, иначе в эту ячейку записывается отрицательное значение a[i,j].