Объясните, что делает процедура RandMatrix

const
zmax=30;
type
Tmatr=array[1..zmax,1..zmax] of integer;
var
a:Tmatr;
n,m:byte;
procedure RandMatrix(var x:Tmatr;var nsize,msize:byte);
var
i,j:byte;
begin
randomize;
repeat
write('Количество строк:');
readln(nsize);
write('Количество столбцов:');
readln(msize);
until (nsize in [1..zmax]) and (msize in [1..zmax]);
for i:=1 to nsize do
for j:=1 to msize do
x[i,j]:=random(20);
end;
procedure PrintMatrix(msg:string;x:Tmatr;nsize,msize:byte);
var
i,j:byte;
begin
writeln(msg);
for i:=1 to nsize do
for j:=1 to msize do
begin
write(x[i,j]:4);
if j=msize then writeln;
end;
writeln;
end;
procedure HandleMatrix(x:Tmatr;nsize,msize:byte);
var
i,j:byte;
kol,sum:integer;
begin
for j:=1 to msize do
begin
kol:=0;
sum:=0;
for i:=1 to nsize do
if x[i,j] mod 2=0 then begin
                       inc(sum,x[i,j]);
                       inc(kol);
end;
if kol=0 then writeln('В ',j,'  столбце нет чётных чисел.')
else   begin
       writeln('Количество ',j,'  столбец: ',kol);
       writeln('Сумма ',j,'  столбец: ',sum);
end;
end;
end;
begin
RandMatrix(a,n,m);
PrintMatrix('Матрица А:',a,n,m);
HandleMatrix(a,n,m);
end.

procedure RandMatrix(var x:Tmatr;var nsize,msize:byte);  // процедура формирования матрицы из рандомных значений
var
i,j:byte;   // индексы матрицы
begin
randomize;         // активируем генератор случайных чисел (Г.С.Ч.)
repeat
write('Количество строк:');
readln(nsize);               // вводим необходимое кол-во строк для формирования матрицы
write('Количество столбцов:');
readln(msize);                   // необходимое кол-во столбцов
until (nsize in [1..zmax]) and (msize in [1..zmax]);  // размер строк и столбцов не должен привышать размер массива
for i:=1 to nsize do    // цикл для перебора всех строк
for j:=1 to msize do  // перебор всех элементов строки по столбцам
x[i,j]:=random(20);   // элементу, стоящему в i -й строке и j -м столбце, присваивается «случайное» целое число в диапазоне от 0 до 20
end;