Поясните пожалуйста программу.(Желательно каждую строчку в этой программе.)

type mtr=array[1..10,1..10] of integer;
procedure matrix(var a:mtr;var n,m:byte);
var i,j:byte;
begin
writeln('Введите размеры прямоугольной матрицы: '); //Вводим число строк и столбцов матрицы
readln(n,m);
writeln('Матрица:'); //выводим слово "Матрица:"
for i:=1 to n do
begin
for j:=1 to m do
begin
repeat
a[i,j]:=-2+random(11); //Заполняем матрицу
until a[i,j]<>0; // исключаем нули
write(a[i,j]:3); // Выводим на экран матрицу
end;
writeln // строчку пропускаем
end;
end;
function nootr(a:mtr;m,k:byte):boolean; //функция для проверки -/+
var i:byte;
f:boolean;
begin
i:=1;
f:=true; // ищем отрицательные элементы
while (i<=m) and f do
if a[k,i]<0 then f:=false
else i:=i+1;
nootr:=f;
end;
function prz(a:mtr;m,k:byte):real; // функция для произведения
var i:byte;
p:real;
begin
p:=1;
for i:=1 to m do
p:=p*a[k,i]; //умножаем
prz:=p;
end;
var a:mtr;
n,m,k,i:byte;
begin
randomize;
matrix(a,n,m); 
writeln('Произведение в строках, где нет отрицательных элементов:'); //печатаем эту строчку
k:=0;
for i:=1 to n do
if nootr(a,m,i) then //проверяем условие (из 20 строки)
begin
k:=1; //выводим исходную матрицу
writeln('Произведение в строке ',i,'=',prz(a,m,i):0:0);
end;
if k=0 then write('Нет строк без отрицательных элементов');
end.