тема: Процедуры и функции.

Дана матрица размера 6 на 4. Найти сумму отрицательных элементов всей матрицы. Через процедуру ввода и вывода и функцию!! Объясните пожалуйста каждую строчку.

Program matritsa; Uses crt; Var s:integer; {Переменная S - сумма} m:array[1..6,1..4]of integer; {матрица} i,j:byte; {Для использования циклов}Begin clrscr; {Очистка экрана} S:=0; {Обнуляем s} For i:=1 to 6 do {проходит столбцы} For j:=1 to 4 do {проходит строки} m[i,j]:=random(101)-50; {присваивает случайное значение от -50 до 50} For i:=1 to 6 do {проходит столбцы} Begin {начало операторных скобок} Writeln; {пропуск строки} For j:=1 to 4 do {проходит строки} Write(m[i,j]:4); {вывод значения} End; {конец операторных скобок} Writeln; For i:=1 to 6 do {проходит столбцы} For j:=1 to 4 do {проходит строки} If m[i,j]<0 then {Проверка значения(меньше нуля?)} S:=s+m[i,j]; {увеличивает сумму на значение данного элемента} Writeln('Сумма отрицательных элементов матрицы =',s); {Вывод}End.