Пояснить суть процедур PrintMatrix и HandleMatrix

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('Kolichestvo strok:');
    readln(nsize);
    write('Kolichestvo stolbtsov:');
    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;
  k,s:integer;
begin
  for j:=1 to msize do
    begin
      k:=0;
      s:=0;
      for i:=1 to nsize do
        if x[i,j] mod 2=0 then
          begin
            inc(s,x[i,j]);
            inc(k);
          end;
      if k=0 then
        writeln('V ',j,' stolbtse net chetnyh chisel.')
      else
        begin
          writeln('Kol-vo ',j,' stolbets: ',k);
          writeln('Summa  ',j,' stolbets: ',s);
        end;
    end;
end;
begin
  RandMatrix(a,n,m);
  PrintMatrix('Matritsa A:',a,n,m);
  HandleMatrix(a,n,m);
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);            //вывод элемента на экран в строку на поле размером в 4
 if j=msize then             //если мы подошли к концу строки, то есть номер элемента равен длине строки, переходим на следующую строку матрицы
 writeln;
 end;
 writeln;
 end;
 
 procedure HandleMatrix(x:Tmatr;nsize,msize:byte);   {обработка матрицы
                                                     фактические параметры:
                                                     матрица, количество строк и столбцов}
 var
 i,j:byte;                    //переменные для циклов
 k,s:integer;                 //переменные для количества и суммы
 begin
 for j:=1 to msize do         //перебираем столбцы
 begin
 k:=0;                       //изначально для каждого столбца  количество и сумма четных = 0
 s:=0;
 for i:=1 to nsize do        //перебираем элементы, составляющие столбец (то есть строки)
 if x[i,j] mod 2=0 then      //если элемент делится на 2 без остатка, то есть четен, то
 begin
 inc(s,x[i,j]);              //увеличить сумму на значение элемента
 inc(k);                     //увеличить на 1 количество элементов
 end;
 if k=0 then                 //если количество равно 0, то вывести сообщение
 writeln('V ',j,' stolbtse net chetnyh chisel.')
 else                        //иначе вывести количество и сумму
 begin
 writeln('Kol-vo ',j,' stolbets: ',k);
 writeln('Summa ',j,' stolbets: ',s);
 end;
 end;
 end;