сколько человек просматривает созданную тему?

uses crt;
type
mas2=array[1..40,1..40] of integer;
mas1=array [1..40] of real;
var
a:mas2;
b:mas1;
i,j,n,m:integer;
suma:real;
 
 
procedure vvod (var c:mas2;n,m: integer);
var i,j: integer;
begin
 randomize;
 for i:=1 to n do
  begin
    for j:=1 to m do
      c[i,j]:=random(20);
   end;
end;
 
procedure vivod(c:mas2;n,m:integer);
var
i,j: integer;
begin
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(c[i,j]:6);
      writeln;
    end;
end;
 
procedure arifm (a:mas2; var b: mas1; n,m: integer);
var
i,j,k,nmin,s:integer;
min:real;
begin
  for j:=1 to m do
    begin
      s:=0; k:=0;
     for i:=1 to n do
       if a[i,j] mod 2=0 then
         begin
           k:=k+1;
           s:=s+a[i,j];
         end;
      if k=0 then
       begin
         writeln('В стобце ',j,' нет чётных элементов');
         b[j]:=maxInt;
       end
      else
        begin
          b[j]:=s/k;
          writeln('Среднее арифметическое стобца ',j,' равно ',s/k);
        end;
    end;
min:=b[1];
nmin:=1;
  for i:=1 to m do
    if b[i] < min then
      begin
        min:=b[i];
        nmin:=i;
      end;
   writeln('Столбец  ',nmin,' с минимальным сред ариф ',min);
 
end;
 
begin
  clrscr;
  writeln('Vvedite kolichestvo strok ');
  readln(n);
  writeln('Vvedite kolichestvo stolbcov ');
  readln(m);
  vvod(a,n,m);
  writeln('Матрица ');
  vivod(a,n,m);
  arifm(a,b,n,m);
  writeln;
 
end.