Написать программу нахождения суммы элементов двумерного массива, расположенных ниже главной диагонали - Pascal

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

пожалуйста, помогите решить две задачи через процедуры: 1. написать программу заполнения двумерного массива, с последующим выводом массива на экран, положительными и отрицательными значениями. 2. написать программу нахождения суммы элементов двумерного массива, расположенных ниже главной диагонали.

Решение задачи: «Написать программу нахождения суммы элементов двумерного массива, расположенных ниже главной диагонали»

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

uses
  crt;
const
  str=4;{количество строк}
  sto=4;{количество столбцов}
var
  a:array [1..str,1..sto] of integer;
  i,j:integer;
begin
  clrscr;
  {заполняем и выыводим массив}
  writeln('Исходная матрица:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
end.

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

В программе используется библиотека crt, которая предоставляет функции для работы с консолью.
Константы str и sto определяют количество строк и столбцов в двумерном массиве соответственно.
Переменная a представляет собой двумерный массив целых чисел.
Переменные i и j используются для итерации по строкам и столбцам массива.
Функция random(8)-4 генерирует случайное число в диапазоне от -4 до 4 и присваивает его переменной a[i,j].
Цикл for i:=1 to str do... выполняется для каждой строки массива.
Цикл for j:=1 to sto do... выполняется для каждой ячейки массива.
Выводится значение a[i,j] с помощью функции write(a[i,j]:2,' '). Здесь :2 означает, что число будет выведено в формате с двумя знаками после запятой.
После вывода значения каждой ячейки массива, выводится символ пробела.
По завершении вывода массива, функция clrscr() очищает экран.