Найти количество всех элементов в нечетных по номеру строках матрицы - Pascal ABC

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

нужно найти количество всех элементов в нечетных по номеру строках матрицы, сделал что бы оно выводило матрицу и нечетные строки, а количество значений что то не могу. был бы рад помощи.

                    Листинг программы
                
 
                        
                          
                    
var
  A: array[1..25, 1..25] of integer;
  k: integer;
  i, j, n, m: byte;
  
begin
  cls;
  writeln('Введите n и m соответственно:');
  readln(n, m);
  writeln('Вводим двумерный случайный массив:');
  writeln;
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(201) - 100;
      write(a[i, j]:5)
    end;
    writeln
  end;  
  writeln;
  i := 1; //первая строка
  while i <= m do 
  begin
    k:=0;
    k:=k+1;
    
    writeln(' количество всех элементов в ', i, ' строке: ', k);
    i := i + 2 //увеличиваем номер строки на 2, чтобы получить нечетный номер
    end;
  end.

Решение задачи: «Найти количество всех элементов в нечетных по номеру строках матрицы»

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

// Нужно найти колличество всех элементов в нечётных по номерах строках матрицы
program Chet;
uses
crt;
var
i,j, c, n: integer;
a: array[0..10,0..10] of integer;
label 1;
begin
CLRSCR;
randomize;
i := 0; n := 0; j := 0;
write('№ строки.            Элементы. ');
while i <= 10 do
 begin
  a[i,j] := random(200);
  c := j mod 2;
  if c <> 0 then
   begin
    write(j,'. ',a[i,j]);
    n := n + 1;
   end;
  i := i + 1;
  if i = 10 then
   begin
    writeln;
    j := j + 1;
    i := 0;
    if j = 11 then goto 1;
    end;
 end;
 1:
 write('Колличество всех элементов в нечётных по номерам строках: ',n);
end.

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

Этот код написан на языке Pascal ABC и предназначен для подсчета количества элементов в нечетных по номеру строках матрицы. В начале программы подключается библиотека crt, которая используется для ввода-вывода данных. Затем определяются переменные i, j и c, которые будут использоваться для работы с матрицей. Далее объявляется массив a, который будет представлять собой матрицу размером 10x10. После этого происходит инициализация генератора случайных чисел randomize. Затем начинается цикл while, который выполняется до тех пор, пока i не станет равным 11. Внутри цикла происходит заполнение матрицы случайными числами. Переменная c инициализируется значением j, деленным на 2. Если остаток от деления равен 1, то переменной c присваивается значение 1, что означает, что текущая строка матрицы нечетная. Если c равно 1, то выводится номер строки и элемент матрицы, а также увеличивается счетчик n на единицу. После завершения цикла i увеличивается на 1, а если i становится равным 11, то выводится пустая строка и переменные i и j сбрасываются на начальные значения. В конце программы выводится сообщение с количеством элементов в нечетных по номеру строках матрицы.