Найти среднее арифметическое элементов каждого из четных столбцов матрицы

Program Work;
 
Uses CRT;
Const N=10;
Type ArrayA=array [1..N,1..N] of real;
Var k : integer;
        A: ArrayA;
      ch : char;
 
     { ввод фактического количества  k  строк  и  столбцов квадратной  матри-цы  A }
Procedure InputN(Var k:integer);
Begin
  Repeat
       Write('Введите значение N=>');
       Readln(k);
  Until (k<=N) and (k>1);
End;
 
     { ввод значений вещественных элементов матрицы  A }
Procedure InputMatrix(k:integer;Var A:arrayA);
Var i,j:integer;
Begin
  for i:=1 to k do
  for j:=1 to k do
    Begin
         Write('Введите значение элемента матрицы A[',i,',',j,']=>');
         Readln(A[i,j]);
    End;
End;
 
{ вывод значений вещественных элементов матрицы  A }
Procedure OutputMatrix(k:integer; A:arrayA);
Var i,j:integer;
Begin
  Writeln('         ------- Исходная матрица -------');
  for i:=1 to k do
    Begin
         for j:=1 to k do
              Write(A[i,j]:7:2,'  ');
         Writeln;
 
    End; 
End;

var
a:array [1..100,1..100] of integer;
i,j,sr,n,m,s:integer;
begin
Writeln('Введите N');
readln(n);
Writeln('Введите M');
readln(m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10)+1;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
j:=1;
for j:=1 to m do
for i:=1 to n do begin
s:=s+a[i,j];
sr:=sr+1;
if (i=n) and  (j mod 2=0) then begin
writeln('(',j,')','Среднее арифм=  ',s/sr);
s:=0;
sr:=0;
end;
end;
readln;
end.

{
Задана квадратная матрица A размером N x N (N<=10),
состоящая из действительных элементов:
Найти среднее арифметическое элементов каждого из четных столбцов этой матрицы.
}
 
Program Work;
Uses
  CRT;
Const
  N=10;
Type
  ArrayA=array [1..N,1..N] of real;
 
     { ввод фактического количества  k  строк  и  столбцов квадратной  матри-цы  A }
Procedure InputN(Var k:integer);
Begin
  Repeat
       Write('Введите значение N=>');
       Readln(k);
  Until (k<=N) and (k>1);
End;
 
     { ввод значений вещественных элементов матрицы  A }
Procedure InputMatrix(k:integer; Var A:arrayA);
Var i,j:integer;
Begin
  for i:=1 to k do
  for j:=1 to k do
    Begin
         Write('Введите значение элемента матрицы A[',i,',',j,']=>');
         Readln(A[i,j]);
    End;
End;
 
     { вывод значений вещественных элементов матрицы  A }
Procedure OutputMatrix(k:integer; A:arrayA);
Var i,j:integer;
Begin
  Writeln('         ------- Исходная матрица -------');
  for i:=1 to k do
    Begin
         for j:=1 to k do
              Write(A[i,j]:7:2,'  ');
         Writeln;
    End;
End;
 
Var
  k,i,j: integer;
  A: ArrayA;
  sum: real;
begin
  { ввод данных }
  InputN(k);
  InputMatrix(k, A);
  { вывод исходного массива }
  OutputMatrix(k, A);
  { вычисление }
  for i:=1 to k do
  if (i mod 2)=0 then
  begin
    sum:=0;
    for j:=1 to k do
      sum:=sum+A[j,i];
    writeln('Столбец ', i, ' - Среднее арифметическое ', sum/k);
  end;
end.