Найти сумму и количество элементов в каждом столбце матрицы, являющихся четными числами

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.

program asd;
 uses crt;
 const n=6;
 var
    a:array[1..n,1..n] of integer;
    i,j,sum,kol:integer;
                        procedure matr;
                        begin
        if (a[i,j] mod 2=0) and (a[i,j]<>0) then begin
        sum:=sum+a[i,j]; inc(kol); end;
                     end;
                     begin
                    clrscr;
 for i:=1 to n do begin
 for j:=1 to n do begin
 a[i,j]:=random(20)-5; write(a[i,j]:3); end;
 writeln; end; writeln;
 for j:=1 to n do begin
 sum:=0; kol:=0;
 for i:=1 to n do
 matr;
   write('сумма ',j,' столбца=',sum,'////');
 writeln('количество четных элементов ',j,' столбца=',kol)
 end;
 
 end.