Найти среднее арифметическое столбцов матрицы с нечётным индексом

Uses Crt;
const
  nmax = 20;
 
var
  A: array[1..nmax, 1..nmax] of integer;
  i, j, n, m, k: integer;
  sr: real;
  min: integer;
 
begin
  
 
  repeat
    write('Количество строк: ');
    readln(n);
  until (n > 0) and (n <= nmax);
  repeat
    write('Количество столбцов: ');
    readln(m);
  until (m > 0) and (m <= nmax);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      {$I-}
      write('A[',i,',',j,'] = ');
      readln(A[i,j]);
      {$I+}
      if IOResult<>0 then 
      Begin
        writeln('Не корректный ввод');
        readkey;
        Exit;
      End;
    end;
  end;
  writeln('Исходная матрица');
  for i := 1 to n do
  begin
    for j := 1 to m do
     write(A[i, j]:4);
    writeln;
  end;
  min := A[1, 2];k := 0;sr := 0;
  for j := 1 to m do
  begin
    if j mod 2 <> 0 then
    begin
      for i := 1 to n do
      begin
        sr := sr + A[i, j];
        k := k + 1;
      end;
    end
    else
      for i := 1 to n do
        if A[i, j] < min then min := A[i, j];
  end;
  TextColor(6);
  writeln('Среднее арифметическое столбцов с нечётным индексом = ', sr / k:0:2);
  if m < 2 then writeln('Нет столбцов с чётным индексом')
  else writeln('Min элемент среди столбцов с чётным индексом = ', min);
  readkey;
end.