В двумерном массиве 10x15 найти сумму элементов для каждого столбца - Pascal

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

В двумерном массиве 10x15 найти сумму элементов для каждого столбца.

Решение задачи: «В двумерном массиве 10x15 найти сумму элементов для каждого столбца»

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

const
    N = 10;
    M = 15;
var
    i, j: Byte;
    sum: Integer;
    ar: Array[1..N, 1..M] Of ShortInt;
begin
    Randomize;
    for i := 1 to N do
    begin
        for j := 1 to M do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:5);
        end;
        WriteLn;
    end;
    for j := 1 to M do
        Write('-----');
    WriteLn;
    for j := 1 to M do
    begin
        sum := 0;
        for i := 1 to N do
            Inc(sum, ar[i, j]);
        Write(sum:5);
    end;
end.

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

Объявляется константа N со значением 10 и M со значением 15.
Объявляются переменные i и j типа Byte, переменная sum типа Integer.
Объявляется массив ar размером 10x15 с элементами типа ShortInt.
Генерируются случайные значения и заполняется двумерный массив ar с помощью вложенного цикла с использованием функции Random.
Выводится заполненный массив ar на экран.
Выводится разделительная строка для массива.
Происходит подсчёт суммы элементов для каждого столбца массива ar с помощью вложенного цикла по столбцам и строкам и выводится на экран.