Найти среднее арифметическое элементов каждой строки матрицы - Pascal ABC

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

Помогите пожалуйста, срочно Найти среднее арифметическое элементов каждой строки матрицы B(N,M) и переписать их в одномерный массив C. Массив C распечатать.

Решение задачи: «Найти среднее арифметическое элементов каждой строки матрицы»

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

var b: array[1..100, 1..100] of integer;
    c: array[1..100] of real;
    i, j, n, m, sum: integer;
begin
  randomize;
  write('N, M = ');
  read(n, m);
  for i := 1 to n do begin
    sum := 0;
    for j := 1 to m do begin
      b[i, j] := random(31) - 15;
      write(b[i, j]:4);
      inc(sum, b[i, j]);
    end;
    c[i] := sum / m;
    writeln;
  end;
  writeln;
  for i := 1 to n do
    write(c[i]:0:3, ' ');
end.

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

Объявлены следующие переменные:
- b: массив размером [1..100, 1..100] из целых чисел;
- c: массив размером [1..100] из вещественных чисел;
- i, j, n, m, sum: целочисленные переменные.
Задаются начальные значения для randomize.
Пользователю предлагается ввести N и M.
В цикле от 1 до N выполняется следующее:
- sum инициализируется нулем.
- В цикле от 1 до M выполняется следующее:
- b[i, j] присваивается случайное число от -15 до 15 (включительно).
- b[i, j] выводится в консоль в шестнадцатеричной системе счисления.
- sum увеличивается на b[i, j].
- После завершения второго цикла, c[i] присваивается среднее арифметическое элементов строки, вычисленное как sum / M.
- После завершения первого цикла, значения c[i] выводятся в консоль, каждое на отдельной строке, с пробелом в качестве разделителя.
Значения c[i] выводятся в консоль, каждое на отдельной строке, с пробелом в качестве разделителя.