Вывести сумму каждого столбца и нечетных чисел - Pascal ABC

Формулировка задачи:

Дв. мерный массив выводит сумму каждого столбца и нечетных чисел. у меня выводит сумму каждого столбца(где фигурные скобки) в процедурe, а надо чтобы из главной, достаточно много вариантов рассмотрел но получается не то

type
  matrix=array[1..100,1..100] of integer;
var
   a:matrix;
   n, m : integer;
 
procedure fill(var a: matrix; n, m:integer);
var i, j : integer;
begin
   for i:=1 to n do
      for j:=1 to m do
         a[i, j]:=random(100);
end;
 
procedure display(a: matrix; n, m:integer);
var i, j : integer;
begin
   for i:=1 to n do
   begin
      for j:=1 to m do write(a[i, j]:3);
      writeln;
   end;      
end;
 
function sum(a: matrix; m, n : integer):integer;
var i, j : integer;
s:real;
begin
  For j:=1 to m do
     Begin
      s:=0;
      For i:=1 to n do
       s:=s+A[i,j];

      writeln('Сумма ',j,'-ого столбца: ',s:1);{}
     End;
end;
 
function sum_k(a: matrix; n, m : integer):integer;
var i, j, s : integer;
begin
s:=0;
 for i:=1 to n do
 for j:=1 to m do begin
 if a[i,j] mod 2 <> 0 then
s:=s+a[i,j];
end;
sum_k:=s;
end;
 
begin
   readln(n, m);
   fill(a, n, m);
   display(a, n, m);
   writeln(sum(a, m, n));
  
   writeln(sum_k(a, n, m));
end.

Решение задачи: «Вывести сумму каждого столбца и нечетных чисел»

Листинг программы

type
  matrix=array[1..100,1..100] of integer;
var
   a:matrix;
   n, m,i,j : integer;
   s:real;
 
procedure fill(var a: matrix; n, m:integer);
var i, j : integer;
begin
   for i:=1 to n do
      for j:=1 to m do
         a[i, j]:=random(100);
end;
 
procedure display(a: matrix; n, m:integer);
var i, j : integer;
begin
   for i:=1 to n do
   begin
      for j:=1 to m do write(a[i, j]:3);
      writeln;
   end;
end;
 
 
function sum_k(a: matrix; n, m : integer):integer;
var i, j, s : integer;
begin
s:=0;
 for i:=1 to n do
 for j:=1 to m do begin
 if a[i,j] mod 2 <> 0 then
s:=s+a[i,j];
end;
sum_k:=s;
end;
 
begin
   readln(n, m);
   fill(a, n, m);
   display(a, n, m);
     For j:=1 to m do
     Begin
      s:=0;
      For i:=1 to n do
       s:=s+A[i,j];
 
 
      writeln('Сумма ',j,'-ого столба: ',s:1);{}
     End;
 
   writeln(sum_k(a, n, m));
end.

Объяснение кода листинга программы

Создается тип данных matrix, который представляет собой массив целых чисел размером от 1 до 100 в каждой из двух осей.
Создается переменная a типа matrix.
Создаются три переменные n, m и i типа integer для представления номера строки, числа строк и номера столбца соответственно.
Создается переменная s типа real для хранения суммы.
В функции fill происходит заполнение массива случайными числами от 0 до 99.
В функции display происходит вывод содержимого массива построчно с помощью цикла for.
В функции sum_k происходит суммирование всех нечетных чисел в выбранном столбце и возвращается результат.
Основной код начинается с чтения входных данных (n, m) с помощью функции readln.
Затем выполняется функция fill, которая заполняет массив случайными числами.
После этого выполняется функция display, которая выводит содержимое массива.
Затем выполняется цикл for, который проходит по всем столбцам массива и суммирует все нечетные числа в каждом из них.
Наконец, выводится сумма нечетных чисел выбранного столбца и сумма всех нечетных чисел в массиве.