Найти среднее арифметическое элементов столбца матрицы, в котором расположен минимальный элемент

const m=10;
var
  a : array[1..m,1..m] of  integer;
 
  procedure InitView;
  var i,j : byte;
  begin
    writeln('massive:');
    for i:=1 to m do begin
      for j:=1 to m do begin
        a[i,j]:=random(40)-20;
        write(a[i,j]:4);
      end;
      writeln;
    end;
  end;
 
  function SeekMinJ : Byte;
  var i,j,imin,jmin : byte;
  begin
    imin:=1; jmin:=1;
    for i:=1 to m do
    for j:=1 to m do if a[imin,jmin]>a[i,j] then begin  {a[imin,jmin]>=a[i,j]  изменить, если нужен последний минимальный}
      imin:=i; jmin:=j;
    end;
    SeekMinJ:=jmin;
    write(' ( ',jmin,' stobca s min elementom ',a[imin,jmin],' ) = ');
  end;
 
  function SredArifmJ(j:byte):real;
  var s:real; i: byte;
  begin
    s:=0; for i:=1 to m do s:=s+a[i,j];
    SredArifmJ:=s/m;
  end;
 
Begin
  randomize;
  initView;
  writeln('sr.arifm ',SredArifmJ(SeekMinJ):0:4);
  readln;
End.